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ABSTRACT 


The work performed under this grant supported the Dexterous Flight Experiment 
on STS-62. The project required developing hardware and software for automating a 
TRAC sensor on orbit. The hardware developed for the flight has been documented 
through standard NASA channels since it had to pass safety, environmental, and 
other issues. The software has not been documented previously therefore this report 
provides a software manual for the TRAC code developed for the grant. 
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Chapter 1 

INTRODUCTION 


If you notice any problems with this documentation, if you would like some- 
thing explained better, or if something else needs to be indexed, contact the 
author. 

This documentation uses the following conventions. 

1. Routines with names like PutltlnBlob use capital letters to indicate the 
pronunciation. In the index you will find the routine by the string “Put 
it in blob" . 

2. Not all routines were intended to be called by a user. These routines usu- 
ally perform some esoteric type of calculation that is not generalizable. 
Routines of this type are called internal and are kept in a file along with 
the functions that call them. Their prototypes are normally found at the 
top of the .c file containing the code. If you want to know who calls an 
internal function just search the file containing the internal function, no 
one else can call it. 

3. This document is organized by .c file. All routines in one particular ,c 
file are grouped together in a chapter. The user callable routines are 
described first followed by the ones used internal to the library. Internal 
routines cannot be used outside of the .c file they appear in. As a user 
you need not worry about internal routines. 

4. To determine what functions are available to the user, look in the .h 
files. They contain the names and prototypes of all functions that were 
intended for someone to call. These .h files also provide some information 
about what the routines do. The .h file listings appear immediately after 
each chapter introduction. 

5. The level of indentation in a listing generally indicates what loop, or if 
statement the line belongs to. 
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6. The user data structure definitions 1 are contained in the file datatype. h. 
This header is included by nearly all routines. Data structures not de- 
fined in datatype.h are internal 2 and can be found in the .c file that they 
are used in. 

7. For the most part writing a backslash is difficult to format, so all di- 
rectory names are given as: a/b/c although DOS requires the division 
symbols to be backslashes. 

1.1 DATATYPE.H 

Documentation Date: 3/12/95 

Data Definitions and some prototypes of functions that must be written 
by the user. The following listing shows the user datatypes. Note that there 
are 5 routines that are called by the library. They are prototyped in this file. 
This file controls most of the dimensions of data. 

New Data Types: 

See the listing. 

Definitions: See the listing. 

Prototypes: 

void Status-Message (char ^message); 

void Fatal_Error_Message (char *raessage) ; 
void clear .status (void) ; 
void printandwait(char *message) ; 
void gprintandwait (char *message); 

Description: 

The library routines need to interact with the user occasionally. To do this the 
library calls five routines. YOU must provide these routines yourself. They 
are: 

1. Status-Message - prints a message on the screen. 

2. Fatal_Error_Message - This should print a message then exit. It is called 
when the library discovers a major problem. 

3. clearjstatus - This should clear the status message. 

4. printandwait - This should print a message then wait for the user to hit 
a key. 

^ser data refers to the fact that the user has access to the data at some point in the 
code not that the variables have global scope. 

2 Internal data means the user cannot access it. 
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5. gprintandwait - This is similar to printandwait except the message occurs 
when a graph is active so you may want the location of the text to differ. 

1.1.1 Header File Listing: 

#ifndef DATATYPES 
#define DATATYPE JI 
(*Your attention please .... 

The targa version of the trac code consists of several self contained 
library routines. This file discusses all of these routines. The library 
is self contained with 5 exceptions. You must supply five subroutines for 
handling messages to the operator. If you do not want to see the messages } 
you may make the routines return immediately , otherwise have them print the 
messages. The five routines you must write are prototyped here. */ 

10 

f* this prints a status message on the screen*/ 
void Status_Mcssagc( char ^message); 

f * this prints a status message on the screen when in graphics mode*/ 
void gStatus_Mcssagc( char mcssagc[]); 

/ * This should print a message then exit. It is called when the library 
discovers a major problem. */ 
void FatalJ3rror_Mcssagc( char ^message); 
j * This clears the status message*/ 
void clcar_status( void); 

j* graphics mode version*/ 20 

void gclcar_status( void); 

/ * This will print a message then wait for the user to hit a key*/ 
void printandwait ( char ^message); 

/* graphics mode version*/ 

void gpromptandrcad( char mcssagc[], char formatQ, void *valuc); 

/ * This is similar except the message occurs when a graph is active 
so you may want the location of the text to differ */ 
void gprintandwait( char ^message); 
void gprint( char *mcssagc); 

30 

j * In the following , the data types are defined */ 
j * First some definitions for the type of camera etc.*/ 

#define MAX_LEDS 4 

#define IMAGEWIDTH 512 

#define IMAGEHEIGHT 512 

#define TOTALNUMBEROFPIXELS 250000 

#define PIXEL_MAX 255 

#define VISION.BOARD "targa8.h" 


j* Define the whole image*/ 

#define LEFTMOSTCOLUMN 0 

#define RIGHTMOSTCOLUMN (IMAGEWIDTH- 1) 


40 
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#define TOPMOSTROW (IMAGEHEIGHT-2) 

# define BOTTOMMOSTROW 26 

#define WHOLE_IMAGE(roi) roi.xs = LEFTMOSTCOLUMN; roi.xc = 
.ys = BOTTOMMOSTROW; roi.yc = TOPMOSTROW; roi. resolution = 1 
j *It seems the lower 27 lines are ???*/ 
j *It seems there is a problem with the top line*/ 

r 

I think the problem is that the board is set to vertical 486 + the top 
and bottom are only half lines do to the interlace 

7 

#ifdef UPPER.LEFT.ORIGIN 
#undef UPPER_LEFT_ORIGIN 
#endif 

/* the origin for the targa card is lower left*/ 

# define LOWER_LEFT_ORIGIN 
#define BBLACK 0 
#define WHITE 255 
^define RED 0 
^define GREEN 1 
^define BLUE 2 
#define SUCCESS 0 
^define FAIL 1 
#define FALSE 0 
#define TRUE 1 

/*If CHECKLENGTH is defined the code will check the length of strings*/ 
#define CHECKLENGTH 1 


typedef unsigned char Pixel; 
typedef int DPixcl; 

typedef Pixel ImagcLinc[IMAGEWIDTH]; 
typedef DPixcl DImagcLinc[IMAGEWIDTH]; 

#define NUMBEROFPIXELBINS (PIXEL.MAX + 1) 

#define FULLNUMBEROFPIXELBINS (2 * PIXEL.MAX + 1) 
typedef long Histogram[NUMBEROFPIXELBINS]; 
typedef long FullHistogram[FULLNUMBEROFPIXELBINS]; 

typedef struct { 
double size; 
double radius: 
double variance; 
double ccntx; 
double ccnty; 
double gray; 

}OncBlob; 


RIGHTMOSTCOLUM 


50 


60 


70 


typedef struct { 
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int xs, ys, xc, yc, resolution; 90 

}ROI; 

/ * #define MAX_BLOBS_PER_PICTURE 10 changed for leo */ 

# define MAX_BLOBS_PER_PICTURE 20 
typedef struct { 

int num_of_blobs_found; 

OncBlob blobs[MAX_BLOBS_PER_PICTURE]; 

OncBlob background; 
double SignalToNoiscMargin; 

DPixcl posthrcshold, ncgthrcshold; 100 

}Imagc; 

#define NUM_RETROS_PER_TARGET 5 
typedef struct { 

OncBlob led: 
int num_ofJed; 

OncBlob OddRctro; 
int NumOfOdd; 

OncBlob leftretro, rightretro, topretro, bottomretro; 

int left, right, top, bottom; no 

} Target; 

/ * typedef struct { 

int tx[6j , ty[6], tz[6], tyaw[6], tpitch[6], troll(6j; 
double rl, r2 , lx , ly, p, y; 

} Transform; *j 

typedef struct { 

double FocalLcngth, CamcraAspcct, TargctWidth, TargctHcight, RangcOffsct; 
} Transform; 120 

#define BAD^PITCH.YAW 180 
typedef struct { 
double x, y, z, yaw, pitch, roll; 

}Posc: 

typedef struct { 
double mx, my, d, ledx, ledy, roll; 

}RawPosc; 

130 

typedef struct { 

int left, right, top, bottom, comer. NormalNumOfLcds, lcd[MAX_LEDS]; 
}BlobIds; 


typedef struct { 
double element [ 2 ]; 
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}Vcctor; 

typedef struct{ 

Bloblds id; 

}AllStats; 

typedef struct { 
int Printer Port Ad dress; 
int NumbcrOfLEDSToScck; 
int LED_Statc; 
int Threshold; 
int LEDControlModc; 
int NumbcrlnSlopc; 
int ThrcsholdPcrccnt; 
int MinimumBlobSizc; 
long MaximumBlobSizc; 
double Tolerance; 
int OvcrLayOnLivc; 
int VidcoCcntcrRow, VidcoCcntcrCol; 
double FocusDistancc; 

}Paramctcrs; 


#endif 


160 
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1.2 MAIN Programs 

A sample main program is provided in the following listing. The routine 
contains some user datatypes defined in “datatype.h” . Compile the main 
program with a statement like: 

CL / c /AL main.c 

The main program is linked to the library with options: /CO (code view) 
/noi (no ignore case) /ST:37000 (stack size, sometimes it is 27000), /E (???). 
You must also include the commercial targa libraries targraf, Itplib, the mi- 
crosoft graphics library graphics and targa.lib (the latter is described in this 
document). 

link /CO /noi /ST:37000 /E main„„targraf,ltplib,graphics,lib/targa.lib 

1.2.1 Program Listing: 

#include <stdlib.h> 

#include <stdio.h> 

#include "targa. h n 
#include "user.h" 

void main( void); 

void main ( void) { 

Pose pose; 

float rob; 0 

RawPosc rawposc: 

AllStats allstats: 

Target target; 

int ovcrlaypagc.overlaymodc; 

ROI roi: 

DPixcl thresh: 

int FirstBright,Dim,SccondBright,LcosSccondBright; 

int firstfalling, resolution, numinslopc,DrawPlot,thrcsholdpcrccnt .storepage: 

Image image; 

long minsizeblob: 20 

double tolerance; 
int calibrate; 

Transform CamcraTransform; 
int i.j; 

FILE *filc; 

calibrate = 0; 


lnitialize_vision(0); 

i=l; 


30 
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file = fopcn("data.dat","wt M ); 
while (i){ 
overlaypagc=0; 

WHOLEJMAGE(roi); 

if(inittcxt()!=SUCCESS)cxit(l); 

ClcarPagc(ovcrlaypagc) ; 

DrawOvcrStrings(WHITE.ovcrlaypagc); 

Livc_Vidco(); 

GrabEightPramcs(); 40 

/ *liveoverlay( overlaypage); *j 

resolution = 2; 

numinslopc = 3: 

thresh =* 0; 

DrawPlot - 0; 
thrcsholdpcrccnt = 50; 
tolcrancc=l.; 
numinslopc=4; 
minsizcblob=50; 

LcosSccondBright=— 1; 50 

firstfalling = FindFirstFallingAndThrcsh(rcsolution, numinslopc. &thrcsh, 

DrawP lot , thrcsholdp crccnt ) ; 

FindFramcsForDoublcSubtract(firstfalling, &FirstBright,&Dim,&SccondBright); 
storcpagc=FindStoragcImagc (firstfalling); 

Show_Proccss_Imagc(storcpagc); 

DcfincImagc(FirstBright,Dim,LcosSccondBright,storcpagc,&imagc, 
TOTALNUMBEROFPIXELS.minsizcblob, thresh): 
if(!TargctCosys(&imagc,&allstats, tolerance)) { 

LoadTargctFromStats(&imagc,&targct,&allstats); 

Livc_Vidco(); 60 

Mark_Targct (&targct,storcpagc,(IMAGEWIDTH)/2,(IMAGEHEIGHT)/2); 
Show_Proccss_Imagc ( storepage) ; 
printf("IS IT OK 1 is yes 0 no"); 
scanf("'/,d",&j); 

if(j){ 

printf('7,f '/.f '/.f '/.f '/, f '/.f '/.f , /.f\n",targct.lcftrctro.ccntx.targct.lcftrctro.ccnty, 
target .rightretro . ccntx, target . rightretro .ccnty, 
target, toprctro.ccntx.targct.toprctro.ccnty. 
target. bottomretro. ccntx, target. bottomrctro.ccnty); 

fprintf(filc,'"/.f '/.f '/.f */.f */.f */.f '/.f '/.f \n" .target .leftretro. ccntx, target . lcfbnctro . ccnty, 

target .rightretro .ccntx, target . rightretro .ccnty, 

target, topretro. ccntx, target, topretro. ccnty, 

target. bottomretro. ccntx, target. bottomretro. ccnty); 

} 

CameraTransform.tx[0] = 1; 

CamcraTransform.ty[l] = 1; 

CamcraTransform.tz[2] = 1; 

CamcraTransform.tyaw[3] = 1: 
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CamcraTYansform.tpitch[4] = 1 ; 
CamcraTransform.troll[5j = 1 ; 
CamcraTransfonn.rl = 1270097.; 
CamcraTransform.r2 = 1 .; 
CamcraTYansform.be = 2.361E-4; 
CamcraTYansform.ly = -1.858E-4: 
CamcraTYansform.p = 1.927E— 4: 
CamcraTYansform.y = 2.423E-4: 


rob=GctAFloat(); 


printf("Xf , It. It, It. It. a, a\n",rob,rawposc.rax. 

rawposc.my.rawposc.d,rawposc.ro]l.rawposc.lcdx,rawposc.lcdy): 


Print RawCamcra(&rawposc); 

WritcPosc(&posc); 

DrawO verlay ( &p osc , over layp age) : 

Mark_Targct(<ktargct,ovcrlaypago,(IMAGEWIDTH)/2,(IMAGEHEIGHT)/2): 

else { 

if(inittcxt()!=SUCCESS)cxit(l): 

ClcarPagc(ovcrlaypagc); 

DrawOvcrStrings(WHITE.ovcrlaypagc): 

printand wait ( " No target found - Press any key") - 

Livc_Vidco(); 

Clear Page (overlaypage) : 
printf("Continue 1 yes, 0 no"): 
scanf( M, /,d".&i): 

} 

fclosc(filc); 

finishtcxt(): 

End vision(): 110 

} 


void Status_Mcssagc (message) 
char message []; 

{ clcar_status(): 
_scttcxtposition(24,12); 
_outtcxt(mcssagc): 

} 


void Fatal_Error_Mcssagc(mcssagc) 
char message []; 

{ Status_Mcssagc(mcssagc); 
cxit(l): 

} 


120 
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void clear statusQ 

{ 

int i; 

char str[80]; * 30 

for (i=0;i<65;i++) str[i]=’ 
str[65] = 0; 

_scttcxtposition(24,12); 

outtcxt(str): 

}" 

void gprintand wait (message) 
char message []; 

{ _movcto(20,l); 

_outgtcxt (message); 140 

gctchQ; 

} 

void printandwait (message) 
char message []; 

{ Status_Mcssagc(mcssagc); 
gctch(); 
clear statusQ: 

} 


150 
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1.3 Function: Auto TRAC Analysis Tool 

Documentation Date: 3/9/95 

Prototypes: 

See program listing. 

Source File: atatl.06.c 
Type of Function: User Callable 

Header Files Used in atatl_06.c: < float. h> <stdio.h> <graph.h> <string.h> 
<como.h> <time.h> <math.h> <dos.h> <ctype.h> ’’targa.h” v com3.2.h” 

Description: 

This routine is the actual main routine. 

1.3.1 Program Listing: 

#include < float. h> 

#include <stdio.h> 

#include <graph.h> 

#include <string.h> 

#include <conio.h> 

#include <timc.h> 

#include <math.h> 

#include <dos.h> 

#include <ctypc.h> 

#include "targa.h" 

#include "com3_2.h" i0 


#define FREE.RUN 0 

#define COMPUTER.CONTROLLED 1 

#define PRINTER_PORT 2 

void main(Paramctcrs Default): 

void LogTargctRcsults( Target *targct FILE *filc); 

void Main_Mcnu (Parameters def); 

void Casc_Numbcr( int ^number); 

int Set Parameters ( Parameters *paramtcrs); 

void DisplayParamctcrs(Paramctcrs ^parameters): 

int SavcParamctcrSct (Parameters *param): 

int RcadP aramctcrSct ( Parameters *param); 

int DocsFilcExist( char *namc); 

int AnswcrcdYcs( char *string); 

int GctAFilcNamc( char *filcnamc. int len, char *cxt): 
void DoDircctory( char *cxtcnsion, char *mcss); 
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void OutColorTcxt( char *string); 

void Display PramcUscs( int firstbright. int dim): 30 

void Rcadlnt( int *n); 
void RcadLong( long *n); 

void RcadsixFIoatf goat *x, float *y, float *z. float *yaw, float ‘pitch, float 

void RcadDoublc( double *n); 
void RcadHcx( int *n); 

void DcsignatcCcntcr(Paramctcrs *param, int page): 
int DoComInitializc(ComPort *port); 5 

void main( void) 40 


{ 

Parameters DcfaultParamctcrs; 

DcfaultParamctcrs.PrintcrPortAddrcss = 0x378: 
DcfaultParamctcrs.NumbcrOfLEDSToScck = 4: 

DcfaultParamctcrs. LED_Statc = OxAA; //This goes with NumbcrOfLEDSToScct don't 
change one without the other on * 

Def aultParameters . Threshold = 135; 

Def aultParameters. LEDControlMode = FREE.RUN; //There is a problem) knowing how 
many leds to seek and the led.state and this P knowing how 

Def aultParameters. NumberlnSlope = 3; 

Def aultParameters. ThresholdPercent = 50; 

Def aultParameters. MinimumBlobSize = 25; 

Def aultParameters. MaximumBlobSize = TOTALNUMBEROFPIXELS • 

™rr er \ TOle ™‘ e ‘ 3 ' : "* ° f radil in template catch 

Def aultParameters .OverLayOnLive =0; * 

Def aultParameters. VideoCenterRow = 245; 

Def aultParameters. VideoCenterCol = 255; 

Def aultParameters . FocusDistance = 626.6; 

_clearscreen(0) ; 

lnitialize_vision(0) ; 

setprinterportaddress (Def aultParameters .PrinterPort Address) • 
if (inittext("d"))Fatal_Error_Message ("Could not find targa font") • 

Live_Video () ; ’ 

GrabEightFramesO ; 

Main_Menu (Def aultParameters) ; 


60 


void Case_Number (int ^number) 

int ch; 

ch = getchO ; 
switch (ch){ 
case 'O’ : 

break; 


70 


*number=0; 
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case 

' 1 ’ : 
break; 

»number=l ; 


case 

’2': 

break; 

■*number=2 ; 

80 

case 

'3* : 
break ; 

■"number =3; 


case 

'4': 

break; 

■*number=4 ; 


case 

’5’ : 
break; 

■*number=5 ; 


case 

’6' : 
break; 

■"number =6 ; 


case 

*7* : 
break; 

>"number=7 ; 

90 

case 

’8' : 
break; 

>"number=8 ; 


default: //printandwait( M Invalid entry: 

*number=8 ; 

}//End switch 
}//End Case_Number 

default to 0 - Hit any key M ); 

void Main_Menu (Parameters DefaultParameters) 

i 


#def ine 

FILE_NAME_LENGTH 

13 

100 


//float x,y,z,yaw,p,r; 

ComPort port; 
int status; 
int ch, page; 
int CalibrateMode; 

Transform trans; 

ROI roi; 

DPixel thresh, autothresh; 
double sum [4]; 

double intensitymax, intensitymin; uo 

double xs, ys; 

Image image; 

AllStats allstats; 

RawPose raw; 

Pose pose; 

Target target; 
int showgraphics ; 
int j j , i ; 
char text [5] ; 

int framel, frame2; 12 o 

int waitt, LED_state; 
int index; 

int firstbright, dim, subtracted, accumulated, workingforhist , storeforhist 
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storefordef ine, overlaypage, pageformarking; 
FILE *f ile ; 
char filename [50] ; 
char af ile[FILE_NAME_LENGTH] ; 
char mess [80] ; 
long numof255s; 

trans .CameraAspect = 1.266; 
trans . TargetWidth ■ 4.2; 
trans .TargetHeight =3.; 
trans. RangeOff set = -.5756; 


thresh = Def aultParameters . Threshold; 

firstbright = 1; 

dim = 0; 

subtracted = 4; 

accumulated = 5; 

workingforhist = 6; 

storeforhist = 7; 

storefordef ine = 6; 

overlaypage = 7; 

showgraphics = 0; 

CalibrateMode =0; 

LED_state=Def aultParameters . LED.State ; 


sprintf (mess, "Choose from menu->"); 
do{ 

150 

_clearscreen(0) ; 

DisplayFrameUses (firstbright , dim) ; 

_settextposition(2, 1) ; 

OutColorText (-'***** Auto\vGTRAC\vW Analysis Tools - Version 1.06 *****\n"); 
OutColorText ("* Copyright December 27, 1994 Everett ft Redfield *\n"); 

OutColorText ("* \vGTRAC\vW is a Patented Sensor by NASA’s WGLco Monford\vW*\n") • 
OutColorText ( M **************************************************y n i t ) . ' 

OutColorText ("* (\vGA\vW)ccumulatc subtracted images: *\n") • 

OutColorText ("* (\vGB\vW) link LEDs: *\n") ’’ 

if (CalibrateMode) 

160 

OutColorText ("* (\vGC\vW)alibratc Disable: *\n")‘ 

else 


OutColorText ("* (\vGC\vW)alibratc Enable: 
OutColorText ("* (\vGD\vW)isplay any image: 
OutColorText ("* (\vGF\vW)ind objects in image: 
OutColorText ("* (\vGG\vW)rab and subtract: 
OutColorText ("* (\vGH\vW)istogram: 

OutColorText ("* (\vGI\vW)nput/Output of Images: 
OutColorText ("* (\vGL\vW)ED control mode: 
OutColorText ("* (\vGN\vW)umbcr of active LEDs set: 


*\n M ); 

*\n M ); 

*\n") ; 
*\n") ; 
*\n") ; 
*\n") ; 
*\n"); 
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OutColorText ("* (\vGO\vW)utput Pose To Com Port: *\ n <<) . 

OutColorText ("* (\vGP\vW)aramctcr set: *\n") ' 

OutColorText ("* (\vGQ\vW)uit and return to DOS: *\n")‘ 

OutColorText (»♦ (\vGR\vW)OI statistics: ’ 

OutColorText ("* (\vGS\vW)ubtract two images: *\n") • 

OutColorText ("* (\vGV\vW)idco live: *v^ 11) . ’ 

/* OutColorText C"**************************************************^,, 

if (Def aultParameters. LEDControlMode==COMPUTER_CONTROLLED) 

OutColorText ("* \vRComputcr Control LEDs ViaDigital Port\vW *\n") ; 
else if (Def aultParameters .LEDControlMode=PRlNTER PORT) iso 

OutColorText ("* \vRComputcr Control LEDs Via Printer PortWW *\n") • 
else ' ’ 

OutColorText (’’* \vRPrcc running LEDs Activc\vW *\n"); 

OutColorText O’**************************************************^,, j . 
DisplayParameters (&Def aultParameters) ; 

Status_Message (mess) ; 
ch = getchO; 
switch (ch){ 

WHOLE, IMAGE (roi); 


case 'a’: 
case 'A': 


* : //Accumulate subtracted image 

' : index = 1 ; 

ClearPage (accumulated); //accumulated page 

Ones (workingf orhist) ; //history test page to 1111 

do{ 

sprintf (mess, "Accumulating Image: Loop %d - Hit any key to stop->" , index) 
Status_Message (mess) ; 
index++ ; 

roi. resolution = 1; ... 


if (Def aultParameters ,LEDControlMode==FREE_RUN)-( 

Charlotte_Grab(0 , 1 , 2 , 3) ; //grab four images 
intensitymax=0; //initial max and min 

intensitymin=l . e20 ; 

WHOLE, IMAGE(roi) ; 
roi . resolut ion=3 ; 

f° r (jj=0; jj<4; jj++)-( //sort intensity 
Integrate.Image ( j j ,fesum[j j] ,roi) ; 
if (sum[j j] >intensitymax) -( 
intensitymax=sum[j j] ; 
f irstbright=j j ; 

> 

if (sum[jj]<intensitymin) -( 
intensitymin=sum[j j] ; 
dim=jj; 

> 
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} 

roi .resolutions ; 

^ 220 

else if (Def aultParameters. LEDControlMode==COMPUTER_ CONTROLLED) { 

firstbright = 0; 
dim = 1; 

Grab_Frame (firstbright, LED_state); 

Grab_Frame (dim, LEDnone) ; 

WHOLE.IMAGE(roi) ; 

> 

else if (Def aultParameters .LEDControlMode==PRINTER_PORTH 
firstbright = 0; 

dim " U 230 

Grab_Frame_Printer_Port (firstbright, LED_state) ; 

Grab_Frame_Printer_Port (dim, LEDnone); 

WHOLE_IMAGE(roi) ; 

> 

else { 

Fatal_Error_Message ("Invalid LED control mode") • 

> 

Show_Process_Image (accumulated) ; 

numof255s = NewDoAccumulation(firstbright, dim, workingfarhist, accumulated) 
}while ( ! kbhit () ) ; 
getchO ; 

sprintf (mess , "Accumulated image in page %d — Choose from menu— >", accumulated 
break; 

case >b> : //Blink LEDs 

case *B': Live_Video () ; 

if (Def aultParameters . LEDControlMode==FREE_RUN) { 

sprintf (mess , "In Free Run Mode!! — Choose from menu — >") ; 

Status_Message (mess) ; 

^ 250 

else if (Def aultParameters. LEDControlMode==C0MPUTER_ CONTROLLED H 
sprintf (mess , "Blinking LEDs from digital port — Choose from menu— >") ; 
Status_Message (mess) ; 
do{ 

SetLEDState (LED_state) ; 

for(jj=0; jj<30000;jj++)waitt = (int) ((double) jj * (double)jj); 
SetLEDState (LEDnone) ; 

f or Cj j-0; j j<30000; j j++)waitt= (int) ( (double) jj * (double) jj); 

Jwhile (! kbhit () ) ; 

^ 260 

else if (Def aultParameters ,LEDControlMode==PRINTER_PORTH 

sprintf (mess , "Blinking LEDs from printer port — Choose from menu— >") ; 

Status_Message (mess) ; 

do{ 
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SetLEDStateUsingPr inter (LED_state) ; 

for(j j=0; j j<30000; j j++)waitt = (int) ((double) jj * (double)jj); 
SetLEDStateUsingPrinter(LEDnone) ; 

for(j j=0; j j<30000; j j++)waitt= (int) ((double) jj * (double)jj); 

}while ( ! kbhit () ) ; 

} 270 

else { 

Fatal_Error_Message ("Invalid LED control mode") ; 

> 

break; 

case J c': //Toggle calibrate mode 

case 'C': if (CalibrateModeH 

fclose(f ile) ; 

CalibrateMode = 0; 

sprintf (mess , "Calibration Off — Choose from menu— >") ; 

} 280 

else{ 

CalibrateMode = 1; 

Status_Message ("Enter file name for calibration data— >") ; 
scanf ("%s" ,&f ilename) ; 
file » f open (f ilename, "w") ; 

sprintf (mess , "Calibration On — Choose from menu— >") ; 

> 

break; 

case ’d’: //Display any image to monitor 

case ’D’: page=0; 290 

do{ 

Sho w_Pr 0 c e s s _ Image (page ) ; 

sprintf (mess , "Displaying image %d — Enter (0-7) or any key— >" , page) ; 
Status_Message (mess) ; 

Case_Number (fcpage) ; 

}while (page < 8) ; 
sprintf (mess, "Choose from menu— >") ; 
break; 

case ’f’: //Image analysis to find blobs and identify target 

case ’F’: if (DefaultParameters.OverLayOnLive)pageformarkiag = overlaypage; 

else pagef ormarking = storefordef ine; 

Status_Message ("Enter image to analyzc->") ; 

Case_Number(&page) ; 

Status_Message("Wait for processing..."); 

Show_Process_Image(page) ; 
roi .resolution = 4; 

FindThreshold(page , -1, roi. resolution, DefaultParameters.NumberlnSlope, 
fethresh, showgraphics , DefaultParameters.ThresholdPercent) ; 
roi. resolution = 1; 

autothresh = thresh; 310 

if (DefaultParameters .Threshold>-l)thresh = DefaultParameters .Threshold; 
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Size 


match— > 
{ 


//sprintf (mess , "thresh permthresh and autothresh %d °/od %d" .thresh, Def aultParar 
//printandwait (mess) ; 

Def inelmage (page , -1,-1, storef ordef ine , Aimage , 

Def aultParameters . MaximumBlobSize , Def aultParameters . MinimumBlobSize 
if (Def aultParameters . OverLayOnLiveX 
EraseOverlay(overlaypage) ; 
liveoverlay(overlaypage) ; 

Mar kAUBlobs (image , overlaypage) ; 

^ 320 

else{ 

Mar kAUBlobs ( image , storef ordef ine) ; 

Show_Process_Image (storef ordef ine) ; 

> 

_clearscreen(0) ; 

_settextposition(l, 1) ; 

if ( image . num.of .blobs .found) OutColorText ( " 

Avcragc\n"); 

if (image. num_of_blobs_found)OutColorText(" Blob # x y 
Brightncss\n") ; 330 

if (image. num_of_blobs_found) OutColorText (" 

\ n «). 

f or (i=0 ; i< image .num.of .blobs.f ound; i++X 
xs = image. blobs [i] .centx; 
ys = image .blobs [i] . centy; 
sprintf (text , "%d" , i) ; 

writetext(pageformarking, (int) xs, (int) ys, text, WHITE); 
if ( ( i<MAX_BLOBS_PER_PICTURE) || (i<20)){ 

sprintf (mess , "%10d%10.1f%10.1f%10.0f%lQ.lf\n" , i , image .blobs [i] . centx, in 
OutColorText (mess) ; 340 

> 

> 

printf ("\n") ; 

sprintf (mess , "Image %d. Thresholds P=%d, T=%d — Hit any key for template 
.page, Def aultParameters. Threshold, autothresh); 
printandwait (mess) ; 

if ( ! TargetCosys (feimage .fcallstats , Def aultParameters . Tolerance ,Def aultParametc 

LoadTargetFromStats (Aimage ,&target,fcallstats) ; 
if (Def aultParameters . OverLayOnLiveX 300 

liveoverlay (overlaypage) ; 

Mark.Target (^target , overlaypage , Def aultParameters . VideoCenterCol , Def at 
else ■( 

Mark.Target (fctarget .storef ordef ine .Default Parameters . VideoCenterCol,D« 
Show_Process_Image (storef ordef ine) ; 

> 

if (CalibrateMode) LogTargetResults(fctarget, file); 
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sprintf (mess , "Template match in image %d — Choose from menu— >" , page) 

' 360 

else sprintf (mess , "No target identified — Choose from menu— >") ; 
break ; 

case 'g': //Grab 2 images and subtract 

case 'G': Status_Message("Wait for processing...") ; 

if (Def aultParameters . LEDControlMode==FREE_RUN) { 
Charlotte_Grab(0,l,2,3) ; //grab four images 

intensitymax=0; //initial max and min 

intensitymin=l ,e20; 

WHOLE_IMAGE(roi) ; 

roi .resolution=3; 370 

f° r (jj=0; jj<4; jj++M //sort intensity 
Integrate_Image(jj ,&sum[jj] ,roi) ; 
if (sumCj j]>intensitymax) ■[ 
intensitymax=sum[j j] ; 
f irstbright=j j ; 

> 

if (sum[jj]<intensitymin) •[ 
intensitymin=sum[jj ] ; 
dim=jj; 

s 380 

> 

roi .resolution*!.; 

> 

else if (Def aultParameters .LEDControlMode==COMPUTER_CONTROLLED)-( 
firstbright = 0; 
dim = 1; 

Grab_Frame (firstbright, LED_state); 

Grab_Frame (dim, LEDnone); 

WHOLE_IMAGE(roi) ; 

^ 390 

else if (Def aultParameters .LEDControlMode==PRINTER_PORTH 
firstbright = 0; 
dim =1; 

Grab_Frame_Printer_Port (firstbright, LED_state); 
Grab_Frame_Printer_Port (dim, LEDnone); 

WH0LE_IMAGE(roi) ; 

> 

else { 

sprintf (mess , "Incorrect Led Control Mode — Choose from menu— >") ; 
break; 400 

> 

/ /Subtract_Images (firstbright , dim , -1 , subtracted , 2 , 128 , ro i) ; 
Subtract_Images(f irstbright, dim, -1, subtracted, 1,0, roi) ; 
Show_Process_Image (subtracted) ; 

sprintf (mess , "Displaying Subtracted Image — Choose from menu— >") ; 
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case 

case 


case 

case 


break; 

//Calculate histogram for any image 
'H' : Status.Message ("Enter image for histogram->") ; 

Case.Number (fepage) ; 

Status.Message ("Wait for processing..."); 410 

WHOLE. IMAGE (roi); 

ShowPixelsInHistogramCroi, page, -1, - 1 , storeforhist, workingforhist) ; 

sprintf (mess, "Choose from menu— >"); 

break; 

'i': 

»I»: 

DoDirectory ("img" , "\vRImagc Files on the Disk") ; 

Status_Message ("Enter the image filename (NO EXTENSION) — > ") ; 
if( GetAFileName (af ile,FILE_NAME_LEHGTH,"img") != SUCCESSH 

sprintf (mess, "Image File Name Was Not Read, Choose From 2 Mcnu -> ") ; 
break; 

> 

Status_Message ("Enter page # — > "); 

Case_Number (fcpage) ; 

if ( (page < 0) || (page > 7) ){ 

sprintf (mess,"Invalid page number. I/O Aborted, Choose From Menu -> ") ; 
break; 

> 

Status_Message("R or W (or Quit)?-> "); 
do{ 

430 

ch = getchO; 
ch = toupper(ch); 

}while( (ch != »R') && (ch != >W’) (ch != 'qO); 
if(ch == ’Q * ) { 
ch = ’ r ' ; 
break; 

> 

if (ch == >RO { 

if ( IDoesFileExist (af ile) )■( 

sprintf (mess , File docs not exist. I/O aborted. Choose fr om menu — >") ; 
break; 

> 

if (Readlmage (af ile , page) == SUCCESSH 
sprintf (mess, "Ok, Choose from mcnu->") ; 
break; 

> 

sprintf (mess , "Error Reading Image. Choose from menu— >") ; 
break; 

> 

if (ch == >W')< 

if (DoesFileExist (af ile) H 

if (lAnsweredYes ("That file exists, overwrite (y.n)? — > ")){ 


400 
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case 

case 


case * 
case * 


sprintf (mess , "I/O Aborted, Choose from menu— >" ) ; 
break; 

> 

> 

if (Storelmage (af ile , page) == SUCCESS) { 
sprintf (mess, "Ok, Choose from mcnu->") ; 
break; 

^ 460 

sprintf (mess , "Error Writing Image, Choose from mcnu->") ; 
break; 

> 

break; 

1 • / /Set mode for type of LEO control 

>L> : sprintf (mess , "Choose (F)rcc, (D)igital, or (P)arallcl modc->" 

Status_Message(mess) ; 
ch = getchO; 

switch (ch){ 470 

case > f > : 
case : 

Def aultParameters . LEDControlMode = f bf.f. rtth • 

sprintf (mess , "Free Run Mode Selected — Choose from menu— >") ; 
break; 
case ’d* : 
case ’D* : 

Def aultParameters. LEDControlMode = COMPUTER. CONTROLLED ; 

sprintf (mess , "Digital Port Controlled Mode Selected — Choose from menu— >") 

break : 

1 . 480 

case , p > : 
case 'P' : 

Def aultParameters .LEDControlMode = PRINTER_P0RT; 

sprintf (mess , "Printer Port Controlled Mode Selected — Choose from menu— >") 
break; 

default: sprintf (mess," Invalid entry — Choose from menu— > M ) ; 

break; 

n : //Set number of active computer controlled LEDs 

® > : Status_Message ("Enter desired number of active LEDs 4 *l> M ) ; 

Case_Number(&page) ; 
if (page == 0) LED_s t at e=LEDnone ; 
if (page == l)LED_state=LEDone ; 
if (page == 2) LED_state=0xEE ; 
if (page == 3)LED_state=0x5B; 
if (page == 4) LED_st ate=0xAA ; 
if (page == 5) LED_state=0xl5 ; 
if (page == 6)LED_state=0xll ; 
if (page == 7)LED_state=0x01 ; 
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if (page == 8)LED_state=0x00; 500 

sprintf (mess , "%d active LEDs set - Choose from mcnu->" , page) ; 
break; 
case > o > ; 
case 'O': 


case 

case 


trans .FocalLength = Defaul'tParame’ters.FocusDis'taiice; 

GetPose (fttarget , fttrans, ft (allstats. id) , ftraw, ftpose, DefaultParameters) ; 


Status_Message ("Enter x,y,z,yaw,p,r — >") ; 

Reads ixFloat(ftx, &y, ftz, ftyaw, ftp, ftr); 
sprintf (mess , "Output %f %f %f %f %f %f?( y . n ) ->" , x 
*/ 


.y.z.yam/jp. 


r) 


sprintf (mess, "Output %8.3f %8.3f %8.3f %8.3f %8.3f %8.3f?(y,n) ->", pose, x, pose, y 
if ( ! AnsweredYes (mess) H 

sprintf (mess,"Nothing Output — Choose from menu -> ") ; 
else ■( 

status = DoComlnitialize(ftport) ; 

if (status !- COM_SUCCESS) sprintf (mess, "Could not initialize com port") ; 
else { 

sprintf (mess , " /69.3f %9.3f %9.3f %9.3f %9.3f %9.3f\n" , pose . x, pose .y, pose .z, 
if (com_send(port ,mess) != COM_SUCCESS) sprintf (mess, "Could not transmit"! 
else sprintf (mess , "Pose Output — Choose from menu — >") ; 


com_close(port,l) ; 

> 

break; 

>p> : 


SetParameters ( ftDefaultParameters) ; 

sprintf (mess , "Parameters set — Choose from menu— >") ; 530 

break; 

case 'q': //Terminate program 

case 'Q’: f inishtext() ; 

End_vision() ; 

_clearscreen(0) ; 

// You can save parameters manually in Parameter set menu 
/* 

If (AnsweredYes ("Do you want to save the Parameters (y.n) — > "))•( 
DoDirectoryC’pms" , "\vRParamctcr Files on Disk") ; 

while (SaveParameterSet (ftDefaultParameters) ! = SUCCESSiprintandwait ("Failed 
to Write File, Press a Key to Try Again (Cntl-C Exits).") ; 

} 

*/ 

Status_Message ("Program Terminated Normally") * 
break; 

case ’r’: //Calculate brightness statistics ROI 
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case J R* : Status.Message ("Enter image number for statistics- >") ; 

Case_Number(fepage) ; 

Def ineROIandCompute (page) ; 

sprintf (mess , "Choose from menu— >") ; oso 

break; 

case 's’: //Subtract any two images 

case ’S’ : Status_Message ("Subtract second image from first — Enter first 

image— >") ; 

Case_Number(ftframel) ; 

Status_Message ("Enter second imagc->") ; 

Case_Number(&frame2) ; 

Status_Message("Wait for processing...") ; 

WHOLE.IMAGE(roi); 

//Subtract_Images(framel,frame2,-l, subtracted, 2, 128, rad); 
Subtract_Images(framel,frame2,-l, subtracted, 1, 0, roi); 
Show_Process_Image (subtracted) ; 

sprintf (mess, "Subtracted image in page %d — Choose from menu— >", subtracte 
break; 

case : //Display live video 

case ’V’ : Live_Video () ; 

sprintf (mess, "Displaying Live Video — Choose from menu— >") ; 
break; 

default : sprintf (mess , "Invalid entry — Choose from menu— >") ; 

} 570 

}while((ch!='Q J ) && (ch!= , q , ))j 


void DisplayRectangleStats(ROI *roi, int increment) 

char message [127] ; 

_settextposition(16, 1) ; 

sprintf (message , " Bottom— left: (%d,%d), upper— right: (%d.%d), Increment: 
%d " ,roi->xs ,roi->ys,ro i->xe,roi->ye, increment) ; 

OutColorText (message) ; 

_settextposition(24,34) ; 

> 

void LogTargetResults (Target ^target, FILE >»file) 

double mirrorx, mirrory, mirrorroll, ledx, ledy, mirrorlength; 
double dx,dy; 

int thenumber ; 590 

_clearscreen(0) ; 

_settextposition(7, 1) ; 

if ( (target->left > -1) && (target->right > -!))•( 
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mirrorx = (target->lef tretro. centx + target->rightretro.centx)/ 2 . ; 
mirrory = (target->lef tretro . centy + target->rightretro.centy)/ 2 . ; 
dy = - (target->lef tretro. centy - target->rightretro . centy); 

dx = - Ctarget->lef tretro . centx - target->rightretro . centx) ; 

mirrorroll = atan2(dy,dx ) * 180 / M_PI; 
mirrorlength = sqrt (dy*dy + dx*dx) ; 

> 

else-C 800 

mirrorx = (target->topretro. centx + target->bottomretro.centx)/ 2 . ; 
mirrory = (target->topretro. centy + target->bottomretro . centy) /2. ; 
dy = (target- > topretro. centy - target->bottomretro . centy) ; 
dx = - (target->topretro . centx - target->bottomretro . centx) • 

mirrorroll = atan2(dx,dy ) * 180 / M_PI; 
mirrorlength = sqrt(dy*dy + dx*dx) ; 

> 


610 


ledx = target->led. centx; 
ledy = target->led. centy; 

printf ( M \n Mirror x y length \n"); 

printf (-' — ___ . 

printf (» % 10 . 1 f% 10 . 1 f% 10 . 1 f\n" .mirrorx, mirrory, mirrorlength) • 

printf ("\n Led x y roll(dcg) \n"); 

P rintf <" V). 

printf (" %10.1f%10.1f%10.1f\n" , ledx, ledy, mirrorroll) • 

if (file ! = NULLH 

Status_Message ("Enter a calibration memo number— >") ; 

Headlnt (fethenumber) ; 
f printf (file , "%d," .thenumber) ; 

fprintf (f ile , "% 10 . 1 f,% 10 . 1 f,% 10 . If," .mirrorx, mirrory, mirrorlength) • 
f printf (file, "% 10. If, %10.1f,% 10. lf\n" , ledx, ledy, mirrorroll) ■ ’ 


int SetParameters (Parameters *param) 

•f 

char mess [80] ; 
int ch.ach; 

630 

sprintf (mess , "Choose from menu— >") • 
do{ 

_clearscreen(0) ; 

_settextposition(5, 1) ; 

OutColorText("************************>i»i<***>i.»i.***«**« < , J j,** 1 j tHt+ ^^ +v ^ (0 _ 

OutColorText ("* (\vGA\vW)ddrcss of printer port set: 

OutColorText ("* (\vGD\vW)csignatc Target Center: 

OutColorText ("* (\vGF\vW)ocus Distance of Camera- 
OutColorText ("* (\vGG\vW)rcatcst Blob Size in Pixels- 


\ ^ J > 

*\n"); 

*\n") ; 
*\n">4o 



1.3. FUNCTION: AUTO TRAC ANALYSIS TOOL 


25 


QutColorText("* (\vGI\vW)nput/Output Parameter set: *\n") ; 

OutColorTextC* (\vGL\vW)EDS — Number to seek: *\n") ; 

OutColorTextC' 1 ' (\vGM\vW)inimum Blob Size in Pixels: *\n") ; 

OutColorText ("* (\vGN\vW)umbcr of Points in Slope Calculation: *\n ") ; 

if (param->OverLayOnLive) 

OutColorTextC* (\vGO\vW)vcrlay on Processed image: *\n") ; 

else 

OutColorTextC* (\vGO\vW)vcrlay on Live: *\n"); 

OutColorTextC* (\vGP\vW)crccnt Distance Between Histogr am Peaks: *\n") ; 

OutColorTextC* (\vGR\vW)ctum to MAIN Menu: fyn"); 

OutColorTextC’* (\vGS\vW)ct Threshold: *\n"); 

OutColorTextC* (\vGT\vW)olcrancc for Template Match: *\n''): 


OutColorText (m**************************************************^,, ^ . 
DisplayParameters (param) ; 

Status_Message (mess) ; 
eh = getchO ; 
eh = toupper(ch); 
switch (ch){ 

660 

case J a J : 

case 'A' : sprintf (mess , "Enter Printer Port address (IN HEX) A&M=378 

IBM750=3BC — 

Status_Message (mess) ; 

ReadHex (& (par am->Pr interPort Address) ) ; 
setprinterportaddress (param->PrinterPortAddress) ; 

sprintf (mess , 11 Address is %x. — Choose from menu— >" ,param->PrinterPortAddre 

Status_Message (mess) ; 

break; 


670 

case M* : 

case ’D’: DesignateCenter (param, 7) ; 

sprintf (mess , "Choose from menu — > ") ; 
break; 


case ‘f ’ : 

case ’F* : sprintf (mess, "Focus Distance of Camera is (%.llf). Enter new 

valuc->" ,param->FocusDistance) ; 

Status_Message (mesa) ; 

ReadDouble (&(param->FocusDistance)) ; 680 

sprintf (mess , "Value is %,llf. — Choose from menu— >" ,param->FocusDistance) ; 
break; 


case : 

case : sprintf (mess , "Greatest Blob Size is (%ld). Enter new value— >" ,param->Mc 

Status_Message (mess) ; 

ReadLong(&(param->MaximumBlobSize)) ; 
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sprintf (mess /'Value is %ld, — Choose from menu— > n ,param->MaximumBlobSize) ; 
break; 


DoDirectory("pms" , "\vRParamctcr Files on Disk") ; 
do{ 

Status_Message("Do you want to Read (R) or Write (W) (Q=Quit)?-> ") ; 

ach = getch() ; 

ach = toupper(ach) ; 

>while( (ach != *R 9 ) kk (ach != *W') kk (ach != *Q>)); 
if (ach == , R > ){ 

if (ReadParameterSet (param) !» SUCCESS) sprintf (mess , '’Failed to Read File") ; 
else sprintf (mess , "Choose from menu— >"); 

> 

else if(ach == 'W'M 

if (SaveParameterSet (param) != SUCCESS) sprintf (mess , "Failed to Write File") ; 
else sprintf (mess, "Choose from menu— >"); 

> 

break; 


case '1 J : 

case 'L* : sprintf (mess Number of LEDS to seek is (%d). Entcnmcw value— >", par am-: 

Status_Message(mess) ; 

Readlnt (& (param->NumberOf LEDSToSeek) ) ; 

sprintf (mess, "Value is \vR%d\vW. — Choose from menu— > M f param->NumberOfLEDSTo 
break; 


case 'm': 

case 'M' : sprintf (mess , "Minimum Blob Size is (%d). Enter new valuc->" ,param->Mini 

Status_Message (mess) ; 

Readlnt (&(param->MinimumBlobSize)) ; 

sprintf (mess , "Value is %d. — Choose from menu— >" ,param->MinimumBlobSize) ; 
break; 


case 'n': 

case ; sprintf (mess , "Number of Points in slope is (%d). Enter new 

value — >" ,param->NumberInSlope) ; 

Status_Message (mess) ; 

Readlnt (&(param->NumberInSlope)) ; 

sprintf (mess , "Value is %d. — Choose from menu— >" ,param->NumberInSlope) ; 
break; 


case 'O': 

if (param->OverLayOnLive){ 
param->OverLayOnLive = 0; 
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sprintf (mess , "Will Now Overlay on \vRProccsscd\vW image. Choose from menu 

> 

else { 

param->OverLayOnLive = 1; 

sprintf (mess," Will Now Overlay on \vRLivc\vW image. Choese from menu ->" 

> 

break; 
case 'p': 

case , P > : sprintf (mess , "Threshold Percent is (%d). Enter new value ->" ,param->Tl 

Status ..Message (mess) ; 

Readlnt (fc (param->ThresholdPercent ) ) ; 

sprintf (mess , "Value is %d. — Choose from menu— >" ,param->ThresholdPercent) ; 
break; 

750 

case *r': 

case 'R': break; 

case 's': 

case 'S': //Set threshold calculation manually or automatically 

sprintf (mess , "Threshold is (%d). Enter new threshold ( — 1 for automatic) — >", pare 
Status_Message (mess) ; 

Readlnt (& (param->Threshold) ) ; 

sprintf (mess , "Threshold is %d. — Choose from menu— >" ,paraEw>>Threshold) ; 

Status_Message (mess) ; 

break; 

case 't': 

case ' T* : sprintf (mess , "Template Match Tolerance is (%.lf). Enter new 

value -> M ,param->Tolerance) ; 

Status_Message (mess) ; 

ReadDouble (&(param->Tolerance) ) ; 

sprintf (mess , "Value is %.lf. — Choose from menu— >" ,param->Tolerance) ; 
break; 770 

default: sprintf (mess /'Invalid entry — Choose from mcnu->") ; 

> 

}while((ch! = 'RO && (ch!« , r , ))j 
return 0; 


void DoDirectory(char ^extension, char *mess) 

#def ine WIND0W_START_R0W 2 
#def ine WIND0W_END__R0W 20 


780 
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790 


♦define WINDOW_WIDTH 20 
struct f ind_t fileinfo; 
int status; 
int row; 
int scol, ecol; 
char f ilename[13] ; 

_clearscreen(0) ; 

_settextposition(l ,1) ; 

OutColorText (mess) ; 
scol = 1; 
ecol = WIND0W_WIDTH-2; 

_settextwindow(WINDOW_START_ROW, scol, WIND0W_END_R0W, ecol) • 

row = WIND0W_START_R0W ; 

sprintf (filename , "*.%s M , extension) ; 

status = _dos_f indf irst (filename , _ A_N0RMAL , ftf ile info) ; 
if (status != 0){ 

OutColorText("\vRNo Files To \n") ; 

OutColorText ( M \vR Choose From") ; 

} 

. . , , . , 800 
while (status == 0){ 

OutColorText (fileinfo. name) ; 

OutColorText ("\n") ; 

row++; 

if (row == WIND0W_END_R0W){ 
row = WINDOW_START_ROW ; 
scol = scol + WINDOW. WIDTH; 
ecol = ecol + WINDOW.WIDTH; 

_settextwindow(WINDOW_START_ROW, scol, WIND0W.ENDJ10W, ecol); 

^ 810 
status - _dos_f indnext (fef ile inf o) ; 

> 

_settextwindow(l,l,25,80) ; 

> 


int GetAFileName (char *f ilename, int namelength, char *ext) 

char tempf ilename[13] ; 
char ^period; 

scanf ( M %8s n , tempf ilename) ; 
period = strehr (tempf ilename , 9 ) ; 
if (period != NULL)*period = 0; 

return FormFullFileName (f ilename, namelength, tempf ilename, ext) ; 


820 


int DoesFileExist(char *name) 
struct find.t fileinfo; 
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if (_dos_f indf irst(name,_A_NORMAL,fcfileinfo) != 0) return 0; 

return 1 ; 830 

> 

int ReadParameterSet (Parameters *param) 

< 

♦define FILE_NAME_LENGTH 13 
FILE * input; 

char filename [FILE_NAME_LENGTH] ; 

Status_Message ("Enter the parameter filename (NO EXTENSION) -> ") ; 

if ( (GetAFileName (filename ,FILE_NAME_LENGTH, "pms") != SUCCESS) II ( IDoesFileExist 

H 840 

return FAIL; 

> 

input = f open(f ilename, "r") ; 

if (fscanf (input , "%x" ,&(param->Pr interPort Address) ) !=l)return FAIL; 
if (fscanf (input , "%d" ,fc(param->NumberOfLEDSToSeek)) !=1) return FAIL; 
if (fscanf (input , "%d" ,&(param->LED_State)) !=1) return FAIL; 
if (fscanf (input , "%d" ,&(param->Threshold)) !=1) return FAIL; 
if (fscanf (input, "%d" ,&(param->LEDControlMode)) !=l)return FAIL; 
if (fscanf (input, "%d" ,&(param->NumberInSlope)) !=l)return FAIL; 
if (fscanf (input, "%d" ,&(param->ThresholdPercent)) !=l)return FAIL; 850 
if (fscanf (input, "%d" ,&(param->MinimumBlobSize) ) !=l)return FAIL; 
if (fscanf (input, "%ld" ,fe(param->MaximumBlobSize)) !=1) return FAIL; 
if (fscanf (input, "%lf" ,&(pau:am->Tolerance)) !=l)return FAIL; 
if (fscanf (input, "%d" ,&(param->OverLayOnLive)) !=l)return FAIL; 
if (fscanf (input, "%d" ,fe(param->VideoCenterRow)) !=l)return FAIL; 
if (fscamf (input, "%d" ,&(param->VideoCenterCol)) !=l)return FAIL; 
f close (input) ; 
return SUCCESS; 

> 

860 

int SaveParameterSet (Parameters *param) 

{ 

♦define F ILE_N AME_LEN GTH 13 
char filename [FILE_NAME_LENGTH] ; 

FILE *output; 

St atus_Mes sage ("Enter the filename (NO EXTENSION) — > ") ; 

if ( GetAFileName (f ilename, FILE_NAME_LENGTH, "pms") != SUCCESS) return FAIL; 
else if( DoesFileExist (filename) && ( • AnsweredYes ("That File Exists. Overwrite 
(y.n)? -> "))) return FAIL; 

else-( 870 

output = f open (filename , "w") ; 
if (output == NULL) return FAIL; 

f printf (output , "%x\n" ,param->PrinterPortAddress) ; 
f printf (output , "%d\n" ,param->NumberOfLEDSToSeek) ; 
f printf (output , "%d\n" ,param->LED_State) ; 
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fprintf (output , "%d\n" ,param->Threshold) ; 

f printf (output , "%d\n" ,param->LEDControlMode) ; 

fprintf (output , "%d\n" ,param->NumberInSlope) ; 

fprintf (output, "%d\n" ,param->ThresholdPercent) ; 

fprintf (output , "%d\n" ,param->MinimumBlobSize) ; sso 

fprintf (output , " %ld\n " , param->MaximumBlobS ize ) ; 

fprintf (output , "%f\n" ,param->Tolerance) ; 

fprintf (output , "%d\n" ,param->OverLayOnLive) ; 

fprintf (output , "%d\n" ,param->VideoCenterRow) ; 

fprintf (output , "%d\n" ,param->VideoCenterCol) ; 

f close (output) ; 

> 

return SUCCESS; 

> 

890 

void DisplayFrameUses(int firstbright, int dim) 
char mess [80] ; 

_settextwindow(13,54,25,80) ; 

OutColOrTeXt ( M \vC** ****** ****** ****** ajofc J , 

OutColorTextO'* \vCNormal Image Framcs\n") ; 

OutColorTextO'* \vC0-3 Used For Charlottc\n" ) ; 

OutColorTextO'* \vC Grab.\n M ); 

//OutColorTextO'* \vCLEDS on l\n") ; e0 o 

//OutColorTextO'* \vCLEDS off 0\n") ; 

sprintf (mess,"* \vCLEDS on %d\n" .firstbright) ; OutColorText(mess) ; 
sprintf (mess,"* \vCLEDS off %d\n",dim) ; OutColorText(mess) ; 

OutColorTextO'* \vCSubtractcd 4\n") ; 

OutColorTextO'* \vCAccumulatcd 5\n") ; 

OutColorTextO'* \vCTcmporary Store 6\n") ; 

OutColorTextO'* \vCOvcrlay & Histogram 7\n"); 

OutColorText ( n \vB** ****** ****************") • 

_settextwindow(l , 1 ,25 ,80) ; 

y 9io 

void Display-Parameters (Parameters ^parameters) 

char mess [80] ; 

_settextwindow (2 ,54,25,80) ; 

OutColorText ("'yvB************************^ 11 ) * 

sprintf (mess,"* Print. Port Add. \vR%x\n" ,parameters->PrinterPortAddress) ; OutColorText (ir 
sprintf (mess,"* # of LEDS to Seek \vR%d\n",parameters->NumberOfLEDSToSeek) ; 

OutColorText (mess) ; 

if (parameters->Threshold == -1){ 920 

sprintf (mess,"* Threshold \vRIs Automatic\n") ; OutColorText (mess) ; 

> 
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else •( 

sprintf (mess,"* Threshold \vR%d\n" ,parameters->Threshold) ; OutColorText(mess) ; 

> 

sprintf (mess , "* # in Slope \vR%d\n" ,parameters->NumberInSlope) ; OutColorText (mess) ; 
sprintf (mess,"* Thresh. %% \vR%d\n",parameters->ThresholdPercent) ; OutColorText (me 
sprintf (mess , "* Min.Blob Size \vR%d\n" ,parameters->MinimumBlobSize) ; OutColorText (me 
sprintf (mess,"* Max.Blob Size \vR%ld\n" ,parameters->MaximumBlobSize) ; OutColorText (m 
sprintf (mess, "* Tolerance \vR%.lf\n" ,parameters->Tolerance) ; OutColo®Text (mess) ; 
sprintf (mess,"* Center at ") ; OutColorText (mess) ; 

sprintf (mess , "(\vR%d\vW,\vR%d\vW)\n" ,parameters->VideoCenterCol,parameters->Vide 
OutColorText (mess) ; 
if (parameters->OverLayOnLive)*( 

sprintf (mess,"* \vRMarking on Livc.\n ") ; OutColorText (mess) ; 

> 

else i 

sprintf (mess,"* \vRMarking on Proccsscd.\n") ; OutColorText (mess) ; 

> 

sprintf (mess , "* Focus Distance \vR%.llf \n" ,parameters->FocusDistanc«i> ; OutColorText( 
/ /OutColorText ( M \vB************************ n ) * 

_settextwindow(l,l,25,80) ; 

> 

void OutColorText (char *string) 

{ 

#define black 0 
#define blue 1 
#define green 2 

#define cyan 3 950 

#define red 4 

#define magenta 5 

#define brown 6 

#define white 7 

#define darkgray 8 

#define lightblue 9 

#define lightgreen 10 

#define light cyan 11 

#define lightred 12 

#define lightmagenta 13 960 

#define yellow 14 
#define brightwhite 15 

int i; 
char ch[2] ; 
i = 0; 
ch[l] = 0; 

_settextcolor(white) ; 
while((ch[0] = string[i]) l~0){ 
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i++; 

if(ch[0] <*■ ’\vO-C 
ch[0] = string[i]; 
i++; 

switch (ch[0]){ 

case *K': _settextcolor(black ) ; break; 

case 'B': _settextcolor(blue ); break; 

case ’G* : _settextcolor(green ) ; break; 

case 'C': _settextcolor(cyan ); break; 

case ’R’: _settextcolor(red ); break; 

case ’M’ : _settextcolor(magenta ) ; break; 

case ’N': _settextcolor (brown ); break; 

case ’W’: _settextcolor (white ); break; 

case ’D’: _settextcolor(darkgray ) ; break; 

case ’b’: _settextcolor(lightblue ); break; 

case 'g*: _settextcolor(lightgreen ) ; break; 

case 'c’: _settextcolor(lightcyan ) ; break; 

case ’r': _settextcolor(lightred ) ; break; 

case 'm': _settextcolor(lightmagenta ) ; break; 

case *Y*: _settextcolor(yellow ) ; break; 

case ’v’ : _settextcolor(brightwhite ); break; 

default: _outtext (ch) ; 

> 

> 

else _outtext(ch) ; 

> 

_settextcolor(white) ; 

> 

int AnsweredYes (char ^string) 

■C 

int ans ; 

Status_Message (string) ; 
do -( 

ans = getch() ; 
ans = toupper(ans) ; 
if (ans == ’Y’) return TRUE; 
if (ans == J N') return FALSE; 

> 

while (1) ; 

> 

char str[100]; 

void Readlnt(int *n) 

< 

f gets (str , 100 , stdin) ; 
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/♦scanf ("%99s",str) ;*/ 
sscanf (str , "%d" ,n) ; 

> 

. , 1020 

void ReadLongClong *n) 

■c 

fgets (str , 100, stdin) ; 

/*scanf ("%99s",str) ;*/ 
sscanf (str, "%ld",n) ; 

> 

void ReadDouble (double *n) 

■c 

fgets (str, 100, stdin) ; 10J0 

/*scanf ("%99s" , str) ; */ 
sscanf (str , "%lf' ,n) ; 

> 

void Reads ixFloat (float *x, float *y, float *z, float *yaw, float *pitch, float 
♦roll) 

< 

fgets (str , 100 , stdin) ; 

/♦scanf ("%99s" ,str) ; */ 

sscanf (str , " %f %f %{ %f %f %{" ,x,y,z, yaw .pitch , roll) ; 1040 

void ReadHex(int *n) 

fgets(str, 100, stdin) ; 

/♦scanf ("%99s",str) ;*/ 
sscanf (str, "%x",n) ; 

> 


void EraseCross(int x, int y, int page); 

void DrawCross (int x, int y, int page); 

void DesignateCenter (Parameters *param, int page) 

int x, y; 
int ch.ach; 


x = param->VideoCenterCol; 
y ■ param->VideoCenterRow; 
ClearPage (page ) ; 
Show_Process_Image (page) ; 


Status_Message ("Use Arrow Keys to Move Cross. Hit Q When Centered'!)*) 

do{ 


DrawCross (x.y, page) ; 
ch = getchO ; 
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ch = toupper(ch); 

EraseCross(x.y.page) ; 

if (ch == OH 

ach = getch() ; 
switch (ach){ 
case 72: /*up*/ 

y++; 

break; 

case 80: /♦down 1 */ 

y— ; 

break; 

case 77 : /*right*/ 

x++; 
break; 

case 75: /*left*/ 

x--; 
break; 

} 

> 

}while(ch != ’O’); 
param->VideoCenterRow = y; 
param->VideoCenterCol = x; 

} 

#def ine LINEHALFLENGTH 10 
#def ine WHITE 255 
#def ine BLACK 0 

void DrawCross(int x, int y, int page) 

1 ine (page , x-LINEHALFLENGTH , y , x+L I NEHALFLENGTH , y , WHITE) ; 
line (page , x , y-LINEHALFLENGTH , x , y+LINEHALFLENGTH .WHITE) ; 
> 

void EraseCross (int x, int y, int page) 

I 

1 ine (page , x-LINEHALFLENGTH , y , x+L I NEHALFLENGTH ,y , BLACK) ; 
1 ine (page , x , y-LINEHALFLENGTH , x , y+LINEHALFLENGTH , BLACK) ; 
> 


int DoComlnitialize (ComPort *port) 

-c 

struct find_t fileinfo; 
int status; 


1070 
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1100 
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int baud; 
char parity; 
int numbits; 
int stopbits; 
unsigned bufsize; 

FILE *inp; 

status = _dos_f indf irstC'com.dat" ,_A_NORMAL,ftf ileinfo) • 

if (status ■■ 0){ 

inp = fopen("com.dat","r") ; 
f scanf (inp, "%d\n" , port) ; 
f s canf ( inp , " %d\n" , ftbaud) ; 
f scanf (inp, "%d\n",fenumbits) ; 
f scanf (inp, "%d\n",&stopbits) ; 
f scanf ( inp , "%d\n" , &buf s ize) ; 
fscanf (inp, "%c" ,&parity) ; 
f close (inp) ; 

> 

else ■{ 

■"port = 2; 
baud = 9600; 
parity = 'N»; 
numbits = 8; 
stopbits = 2; 

bufsize = (unsigned) 2048; 

> 


1X20 


1130 


//pnntf ("opening port %d, baud %d, parity %c. digits %d. stop %d, buff %d\n" , 

// ’"port .baud, parity, numbits, stopbits, bufsize ); 
status = com_open (*port, bufsize, baud, parity, numbita, stopbits) • 

if (status != COM.SUCCESS) return status; 
com_raisedtr(*port) ; 
return C0M_SUCCESS; 

> 


1140 
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1.4 Function: init.vid 

Documentation Date: 3/9/95 

Prototypes: 

void main(void) ; 

Source File: initjvid.c 

Type of Function: User Callable 

Header Files Used in init_vid.c: <float.h> <stdio.h> <graph.h> <string.h> 
<conio.h> <time.h> <math.h> <stdlib.h> ’’targa.h” 

Description: 

This routine initializes the video. The system call used in the Initialize.Video 
function does not work in the actual main program due to memory problems. 
This simple small program calls the initialize video function to set the targa 
parameters into the targa. par file. To get any benefit from it, you should delete 
the targa. par before running the program. Otherwise, it will simply read the 
targa.par file and exit. 

1.4.1 Program Listing: 

#include < float. h> 

#include <stdio.h> 

#include <graph.h> 

#include <string.h> 

#include <conio.h> 

#include <timc.h> 

#include <math.h> 

#include <stdlib.h> 

^include "targa.h" 

i° 

void main( void); 

void main() { 
int ovcrlaypagc; 

ROI roi: 

lnitializc_vision(0); 

ovcrlaypagc=7: 

WHOLEJMAGE(roi); 

if(inittcxt("d"))cxit(l); 20 

ClcarPagc(ovcrlaypagc); 

DrawOvcrStrings(WHITE.ovcrlaypagc); 

Livc_Vidco(); } 
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1.5 messages 

Documentation Date: 3/9/95 
New Data Types: 

None. 

Definitions: Local Definitions: 

• STATPOS = 24,1 - Row and column for the Status Message. 

• GSTATPOS = 1,1 - Row and column for the Graphics Status Message. 

Prototypes: 

See Datatypes. h for Global prototypes. 

Source File: messages. c 
Type of Function: User Callable 

Header Files Used in messages.c: <stdio.h> <graph.h> <conio.h> 

<stdlib.h> ’’targa.h” 

Description: 

This file contains the message writing routines. 

1. Status-Message - Prints a status message. 

2. clear status - Clears the status message. 

3. Fatal_Error_Message - Prints a status message then quits the program. 

4. printandwait - Prints a status message and waits for the user to hit any 
key. 

5. gStatus_Message - Prints a status message on a graphics screen. 

6. gclearjstatus - Clears a graphics mode status message. 

7. gprintandwait - Prints a graphics status message and waits for the user 
to hit a key. 

8. gpromptandread - Prints a graphics status and reads a value. 

1.5.1 Program Listing: 


^include <graph.h> 
^include <stdlib.h> 
^include <conio.h> 
#include <stdio.h> 
#include "targa.h" 
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#define STATPOS 24,1 
j*#define GSTATPOS 20,1*/ 

#define GSTATPOS 1,1 

int gscanf( char *format, void *valuc); 

/ *Put OutColorText in an appropriate file*/ 
void OutColorText ( char *string); 

void Status_Mcssagc (message) 
char message []; 

{ clcar_status(); 

_scttcxtposition(STATPOS); 

OutColorText (message) ; 

} 

void clear statusQ 

{ 

_scttcxtposition(STATPOS) ; 

_outtcxt(" 

} 

void Fatal_Error_Mcssagc (message) 
char message []: 

{ Status_Mcssagc(mcssagc): 
cxit(l): 

} 

void printandwait (message) 
char message []: 

{ 

Status_Mcssagc(mcssagc); 

gctch(); 

clear status (): 

} 

void gStatus_Mcssagc(mcssagc) 
char message []: 

{ 

gclcar_status(); 

_scttcxtposition(GSTATPOS); 
OutColorText (message): 

r 

gclear_status(); 

_moveto( GSTATPOS); 

_outgtext( message); 
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7 

} 

void gclcar statusQ 

{ 

_scttcxtposition(GSTATPOS) ; 

outtcxt(" so 

/* 

_settextposition( GSTATPOS); 
outgt ext(” 

V; 

7 

} 

void gprintand wait (message) 

char message []; 70 

{ 

gStatus_Mcssagc (message) ; 

gctch(); 

gclcar_status(); 

/* 

gStatus_Mcssage( message ); 

getchQ; 

gclcar status(); 

7 

} 80 

void gpromptandrcad( char messagef], char format [], void * value) 

{ 

_displaycursor(_GCURSORON) ; 
gStatus_Mcssagc (message) ; 
scanf (format ; value) ; 
gclcar_status(); 

displaycursor(_GCURSOROFF): 

} 

90 

#define LEN 80 

int gscanf( char ^format, void *valuc) 

{ 

char c[2]; 

char string[LEN+l]; 
int i: 
i=0; 

c[l] = 0; 

do{ 

c[0] = ( char) getchQ; 


100 
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_outgtcxt(c); 
if(i<LEN){ 
string [i] =c [0] : 
i++; 

} 

} while(c[0]!=*\r*); 

return ( sscanf (string , format , value) ) ; 

} 
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1.6 Com3_2.c 

Documentation Date: 3/9/95 
Description: 

This file contains the routines used to drive the serial communications port. 
See the listing for further information. 


1.6.1 Header File Listing: 


/*■ 

/* 

I* 

/* 

r 

r 

r 

r 

r 

r 

r 

r 

i* 

7 

/* 

v 

r 

r 

r 

/* 

r 

r 

/*- 


7 

7 


7 


FILE : com.h 
Header file for interrupt driven serial I/O. 

7 

AUTHOR : Russell Neeper 7 

7 

MODIFICATIONS : 7 

7 

date programmer version comments 

Spring ’89 RN 1.0 initial version 

RN 2.0 Fixed initialization bugs, 


10 


7 


Fall ’90 


1 / 6/95 


No longer uses BIOS, added */ . 

flush command. 7 

LJE 3.2 RENAMED FLUSH */ 

CHANGED INT TO COMPORT DATATYPE */ 20 

SWITCH SUCCESS AND FAIL */ 

7 


typedef char ComPort: 
#define COM1 0 

#define COM2 1 

/* 

#define COM_SUCCESS 1 
# define COM FAILURE 0 

7 

#define COM.SUCCESS 0 
#define COM.NONEAVAIL 2 
#define COM.BADPORT 3 
#define COM.TIMEOUT 4 
#define COM.BADBAUD 5 
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#deflne COM.BADPARITY 6 
#define COM_BADBITS 7 
#deflne COMJBADSTOP 8 
#deflne COM.NOMEMORY 9 
#define COM.FALSE 0 
#deflne COM.TRUE 1 


/ * function prototypes */ 


/ * void com_break( ComPort port,unsigned int l); */ 


GO 


/ * Return the number of available input chars on a COM port */ 
int com_avail (ComPort port); 

I * Flush all input from the COM port */ 
void com_flush_input (ComPort port); 

P ° H '■ U therc M a char ami,abk u 

CO _ VAIL Otherwise it puts the character in *c and returns COM SUCCESS 

int com_rcad( ComPort port, char *c).* 

/ * Writes character out port. Actually puts it in the queue If it CANNOT 
Output the character within OUTTRIES, it returns COM TIMEOUT If you pass 
a bad port address it returns COM_BADPORT. Success returns COM SUCCESS */ 
int com_writc( ComPort port, char c); " * 

t * Thls sends an cntlre string out. If it succeeds it returns COM SUCCESS ao 
If it cannot output a character within OUTTRIES, it returns COM TIMEOUT. If 
you pass a bad port address it returns COM_BADPORT. */ * 

int com_scnd(ComPort port, char *msg): ' 

/ 'This routine opens and initializes the com port, it allocates its own memory 
for the buffer too. • y 

Note that baud is the actual number except 38 — > 38400 115 — > 115200 

C d°ort ADBAUD commits com.ba 

int com_open([l, 2]Com, Buffer Size, Baud Rate (eg 1200) 

[’N’> ’O’, ’o’, ’E’, ’e ’(Parity, [7, SjBits, 

[1, ZjStopBits) */ 

int com_opcn(ComPort port, unsigned size, int baud, 
char parity, int digits, int stop): 

/* This closes the port and frees the buffer. If leavedtr == 0 it clears dtr 
otherwise it sets it. *j 

void com_closc(ComPort port, char leavedtr); 

/* Returns True (non zero) if carrier is present, False (zero) otherwise */ 
int com.carricr (ComPort port); 

!* Returns True (non zero) if DSR is present, False (zero) otherwise */ 
int com_dsr(ComPort port): ' 

T ’ em> ,,P0RT ,s READY,or • ™ 

int com_rcady(ComPort port); 
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/ * Drop the DTR signal on a COM port */ 
void com_dropdtr(ComPort port); 
j * Raise the DTR signal on a COM port */ 
void cora_raiscdtr(ComPort port); 

f* Reads a character from port. If there isn’t a char available it waits for 
one. Otherwise it puts the character in *c and returns COM_SUCCESS */ 
char com_rcad_wait(ComPort port); 


»o 


1.6. COM3J2.C 


1.6.2 Program Listing: 

#define This_Vcrsion "com3_2.h" 

/ * Defines for various port parameters */ 

# define BITS_7 0x00 /* Data bits*/ 

#define BITS.8 0x10 

# define STOP_l 0x00 /* Stop bits*/ 

#deflne STOP_2 0x20 

#deflne PARITY.NONE 0x00 /‘Parity mode, '/ 

#define PARITY.ODD 0x40 
#define PARITY.EVEN 0x80 

/* The basic problem with this code is that it doesn’t manipulate 
(on its own) the dtr flags and it doesn’t have an output buffer On 
output it will wait for a slot to open before returning. On input, if 
the buffer isn t read frequently enough, data will overrun. 

n rrJrJttV*’ 1 2 ° 48 f ° T the bu ff size - The ^ put a com openfl 

To u S / ZE ’ 96 fh°’ >N ’’ 8 ’ 1} ° T Whatever you need the Parameters to be. 
lo write something out, use comjwrite or com_send, 

and to read a character, call comjread. If comjread returns 

COM_NONEA VAIL, then no character is available (i.e., the code is interruv 
riven, and doesn’t halt waiting for new characters.) 


Look at the function declarations to get the parameters, 
has been used with Turbo C andwith Microsoft C 6.0. 


This code 


Command 

com_open 
com_close 
comjbreak 
comjxvail 
comJlush_input 
comjread 
comjvrite 
comjsend 
comjcarrier 
comjisr 
comjready 
comjdropdtr 
comjraisedtr 
comjreadjwait 

7 

/* 

/* 

/* FILE : com.c 


File Header File 


Description 


com.c 


com.h Opens serial communication port 
Closes serial communication port 
Sends a break 

Returns # of chars waiting to read 
Flushes all received characters 
Reads a character 
Writes a character 
Sends a string 
Tests if a carrier is present 
Tests if Data Set Ready is present 
Tests if comm port can transmit 
Drops DTR signal 
Raises DTR signal 

Reads a character, if not avail, it waits 
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r v 

/ * These routines provide interrupt driven serial I/O. 

r 

/* 


/* 

r 

/* 

/* 

/* 

r 

v 

r 

v 

/* 

r 

/* 

r 

r 

/* 

r 

/* 

r 

/*- 


AUTHOR : Russell Neeper 
MODIFICATIONS : 
date 


V 

V 


7 


programmer version 


7 

comments 


Spring ’89 RN 1.0 initial version 

Fall ’90 RN 2.0 Fixed initialization bugs , 

No longer uses BIOS, added */ 

flush command . */ 

Jan 17, 92 LJE 2.1 Added a few characters to 

eliminate warnings in Turbo C */ 

Jan 6, 95 LJE 3.2 Cleaned up some comments 

Fixed com_send */ 

Changed name of flush *j 

Changed return values to be descriptive */ 

7 


#include <dos.h> 
^include <bios.h> 
#include <conio.h> 
^include <stdlib.h> 
#include This_Vcrsion 


7 


50 


7 


7 


60 


7 

7 


70 


/ * Various PIC/ COM masks and values */ 

#deflne PIC.MASK 0x21 
#define PIC_EOI 0x20 
#define ERR_MSK 0x9E 


/ * Definitions for interrupt handling */ 
/ * COM port offsets */ 


#define COM.DATA 
#define COM.IER 
#deflne COM.LCR 
# define COM_MCR 
#define COM.STAT 
#define COM.MSR 


0 / * Data received on this // O address 
1 / * This register enables interrupts */ 

3 / * Line control register */ 

4 j* Control Register (signals) */ 

5 / * Status Register */ 

6 / * Modem Status Register */ 


7 


90 
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/ * Data for installing COM port interrupts */ 

#define COM.INT.l OxOC 
#define INT.MASK 1 OxlO 

8 

259 A */ 

#deflne C0M_INT_2 OxOB 
#define INT.MASK 2 0x08 

8 

259A */ 

#ifdef_TURBOC_ 
void interrupt (far *old_coml_int )():/ *LJE Added far */ 
void interrupt (far *old_com2_int)(); 

/ *void interrupt (*old_coml_int)(); 
void interrupt (*old_com2_int)();*/ 

#e lse 

void (interrupt far *old_coml_int)(); *' 

void (interrupt far *old_com2_int)(); 

#define inportb inp 
#define outportb outp 
#define outport outpw 
#define disable .disable 
^define enable .enable 
^define sctvcct .dos.sctvcct 
#deflne gctvcct _dos_gctvcct 
#endif 

120 

static void docnablc( int); / *LJE */ 

volatile char *msgBuffl: 
unsigned int size 1. avail 1; 

volatile unsigned int lastPosl = 0; /*LJE 1/6/95 added unsigned* / 
volatile unsigned int curPosl = 0 \ /*LJE 1/6/95 added unsigned*/ 

volatile char *msgBuffi2; 
unsigned int sizc2,avail2; 

volatile unsigned int lastPos2 = 0; /*LJE 1/6/95 added unsigned*/ 
volatile unsigned int curPos2 = 0; /*LJE 1/6/95 added unsigned*/ 

unsigned COMADDR1; 
unsigned COMADDR2: 



void far interrupt coml.intQ / *LJE added far*/ 


/ OxOC handles IRQj or COMl by standard */ 

/ * Mask for PIC (programmable interrupt controller) 

/ OxOB handles IRQ3 or COM2 by standard */w 
/* Mask for PIC (programmable interrupt controller) 


140 
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if ((inportb(COMADDRl+COM_STAT) & ERR.MSK) == 0) { 

/ * If no error occured, then store the character */ 

msgBuffl[curPosl] = ( char) inportb(COMADDRl);/*LJ£ added char 1/5/95*/ 
if (++curPosl >= sizcl) curPosl = 0; 
avail 1++; 

} else { 

/ * Else, remove the erroneous character */ 
inportb(COMADDRl): 

} 

outportb(0x20,0x20): 

} 

void far interrupt com2 int() / *LJE added far*/ 

{ 

if ((inportb(COMADDR2+COM JSTAT) & ERR.MSK) 

/ * If no error occured , then store the character *j 
msgBufF2[curPos2] = ( char) inportb(COMADDR2); 
if (++curPos2 >= sizc2) curPos2 = 0; 
avail2+- 1-; 

} else { 

/ * Else, remove the erroneous character */ 
inportb(COMADDR2): 

} 

outportb (0x20.0x20) : 

} 

r— 

/ *This routine sends a break out port , then delays for l. Notice it is commented 
out because delay doesn’t work */ 

/ * 170 

void com break( ComPort port, unsigned int l) 

{ 

unsigned int addr; 

addr = ((port == 2) ? COMADDR2 : COMADDR1) + COMJLCR ; 
outportb (addr ,inportb (addr) \ 0 x 40 ); delay(l); 
outportb (addr, inportb(addr) * 0 x 40 ); 
outportb (addr -(-COM IER,0x0B); 

} 

V 180 

j* 

/ * Return the number of available input chars on a COM port */ 

j* 


== 0) { 


160 


int com avail (ComPort port) 

{ 

switch(port) { 



1.6. COM3-2.C 


49 


case 1: return (availl); 

case 2: return (avail2); 
default: return 0: 

} 

} 

/*■ 

I* Flush all input from the COM port */ 

/* ' 


void com_flush input (ComPort port) 

{ 

switch (port) { 
case 1: 

disablcQ; / * Disallow ints while flushing * j 
availl = curPosl = lastPosl = 0; 
enable (); 

break; 
case 2: 

disablcQ; / * Disallow ints while flushing *J 
avail2 = curPos2 = lastPos2 = 0; 
cnablcQ; 

break; 

default: break: 

} 


200 


210 


/ * Reads a character from port. If there isn’t a char available it returns 
COM_NONEAVAIL Otherwise it puts the character in *c and returns COM SUCCESS 

7 

int com_rcad(ComPort port, char *c) 


switch (port) { 
case 1: 


if (curPosl != lastPosl) { 

*c = msgBuffl [lastPosl]; 
if (-H-lastPosl >= sizel) lastPosl = 0; 
disablcQ; 
availl — ; 


cnablcQ; 

return COM SUCCESS: 

} 

break; 


230 


case 2: 


if (curPos2 != lastPos2) { 
*c = msgBuff2[lastPos2]; 
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if (++lastPos2 >= sizc2) lastPos2 = 0; 
disablcQ; 
avail2 — ; 
cnablc(); 

return COM.SUCCESS; 

} 240 

break; 

} 

return COM NONEAVAIL: 

} 

/*■ 

/* Reads a character from port. If there isn’t a char available it waits for 
one. Otherwise it puts the character in *c and returns COM_SUCCESS */ 
char com_rcad_wait( ComPort port) 

{ 250 

char c; 

while(com_rcad(port,&c) == COM_NONEAVAIL){} 
return(c); 

} 

f* 

/ * Writes character out port. Actually puts it in the queue. If it CANNOT 
Output the character within OUTTRIES, it returns COM_TIMEOUT. If you pass 
a bad port address it returns COM_BADPORT. Success returns COM_SUCCESS. *j 
int com_writc(ComPort port, char c) 2 oo 

{ 

#define OUTTRIES 10000 
unsigned int addr, t=0; 

t = 0 \/*LJE 1/6/95 I never trusted the initialization in the declaration*/ 
if (port == 1) addr = COMADDR1; 
else if (port == 2) addr = COMADDR2; 
else return COM_BADPORT; 

while (!(inportb(addr+COM_STAT) & 0x20) && (++t < OUTTRIES)): 
if (t >= OUTTRIES) return COM.TIMEOUT; 270 

outportb(addr, c); 
return COM.SUCCESS; 


j* 

/ * This sends an entire string out. If it succeeds it returns COM_SUCCESS. 

If it cannot output a character within OUTTRIES, it returns COMJTIMEOUT. If 
you pass a bad port address it returns COM_BADPORT. */ 
int com_send(ComPort port, char *msg) 

{ 


int c: / *LJE 1/6/95 used to be char and set to 0*/ 


280 
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} 

/*■ 

! ^Enable a COM^port given its I/O port address and other data 


7 


^static void docnablc( int addr) 

/ * Set DLAB bit to zero to ensure that we */ 

j access the correct COM port registers * j 

outportb(addr + COM_LCR.mportb(addr + COM.LCR) <fe 0x7F) 

/ * Turn off the chip ’s interrupts to start with */ 
outportb(addr + COMJER.O): 

outportb(addr + COM.MCR,8); / * Just DTR up for now */ 


/ * Read status and data ports to clear 
inportb(addr + COM_STAT); 
inportb(addr); 


any outstanding errors 


7 


290 


300 


/ * Set ints for data available */ 
outportb(addr + COMJER.l); 


/*— 

/ *This routine opens and initializes the 
for the buffer too. 


com port, it allocates its own memory 


com_open([l, 2]Com, Buffer Size, Baud Rate (eg. 1200 ) 
[N , V , ’O’, ’o’, ’E’, ’c /Parity, [7, 8] Bits, 

[1, 2/StopBits) 


Note that baud is the actual number except 
b=38 -> 38400 
b—115 -> 115200 
This will return: 


310 


COM_SUCCESS 
COM_BADBAUD 
COM_BADPARITY 
COM_BA DBITS 
C OM_BA DSTOP 
C OM_NOMEMOR Y 
COM_BADPORT 

7 

int com_opcn(ComPort port, unsigned 
int stop) 


320 


int size, int baud, char parity, int digits. 
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unsigned int addr; 

static int divisorsfll] = j * COM port baud rate divisors */ 

{0x0417, 0x0300, 0x0180, OxOOEO, 0x0060, 

0x0030, 0x0018, OxOOOC, 0x0006, 0x0003. 

0x0001}; 

unsigned value, parms; 
unsigned char eh; 
int b,p,d,s; 


330 


switch (baud) { 


b=0; 

b=l; 

b=2; 

b=3: 


case 110 
case 150 
case 300 
case 600 
case 1200: b=4; 
case 2400: b=5; 
case 4800: b=6; 
case 9600: b=7: 
case 19200 
case 38: 


break; 
break; 
break; 
break; 
break; 
break; 
break; 
break; 
b=8; break; 
b=9: break: 


340 


case 115: b=10; break; 
default: return(COM BADBAUD): 

} 

switch (parity) { 
case 'N ; : 
case *n*: 
case 'E*: 
case } e f : 
case 'O': 
case 9 o } : 
default: 


350 


p=PARITY_NONE; break; 
p=PARITY _E VEN ; break; 


p=PARITY_ODD; break; 
return(COMJBADPARITY); 


} 

switch (digits) { 

case 7: d=BITS_7; break; 
case 8: d=BITS_8; break; 
default: return(COM BADBITS): 

} 

switch (stop) { 

case 1: s=STOP_l; break; 
case 2: s=STOP_2; break; 
default: return(COM BADSTOP): 

} 


380 


370 


switch (port) { 
case 1: 

addr = COMADDR1 — *(( int far *)0x400L); 



1.6. COM3.2.C 


avail 1 = curPosl = lastPosl = 0; 
sizcl = size; 

msgBuffl = ( char *) malloc(sizcl); 
if (.'msgBuffl ) return(COM_NOMEMORY); 

docnablc(COMADDRl); /* Setup the regs */ 

f * Setup the ISR details */ 
old_coml_int = gctvcct(COM_INT_l); 

sctvcct(COM_INT_l,coml_int); /* attach com interrupt */ 
/* Now turn on DTR, RTS and OUT2: all ready */ 
outportb(COMADDRl + COM_MCR,OxOB); 

/ * Program the PIC to handle COM1 interrupts */ 
ch = ( char) inportb(PICMASK); /* Read current mask */ 
ch &= (OxFF“INT_MASK_l);/’'' Reset mask for COMl */ 
outportb(PIC_MASK,ch); /* Send it to the 8259 A */ 

break; 
case 2: 

addr = COMADDR2 = *(( int far *)0x402L); 

avail2 = curPos2 = lastPos2 = 0; 
sizc2 = size; 

msgBuff2 = ( char *) malloc(sizc2); 
if (!msgBuff2) return(COM_NOMEMORY); 

docnablc(COMADDR2); /* Setup the regs */ 

/ * Setup the ISR details */ 
old_com2_int = gctvcct(COM_INT_2); 

sctvcct(COM_INT_2.com2_int); /* attach com interrupt */ 

/* Now turn on DTR, RTS and OUT2: all ready */ 
outportb(COMADDR2 + COM.MCR.OxOB); 

/ * Program the PIC to handle COM2 interrupts */ 
ch = ( char) inportb(PIC_MASK); /* Read current mask */ 
ch &= (0xFF“INT_MASK_2);/ * Reset mask for COM2 *( 
outportb(PIC_MASK,ch); /* Send it to the 8259A */ 

bresik; 

default: return(COM_BADPORT); 
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parms = b | p | d | s; 

value = (parms k BITS_8) ? 0x03 : 0x02; 
if (parms k STOP_2) value |= 0x04; 
if (parms k PARITY_ODD) value |= 0x08; 
if (parms k PARITY.EVEN) value |= 0x18; 

outportb (addr + COM.LCR, value | 0x80); /* Set parms and DLAB */ 430 

outport (addr,divisors[parms k 0x0F]); /* Set the baud rate */ 

outportb (addr + COM.LCR, value); / * Clear DLAB bit */ 

return(COM SUCCESS): 

} 

/*— 

/ * This closes the port and frees the buffer. If leavedtr == 0 it clears dtr 
otherwise it sets it. *j 

void com_closc(ComPort port, char leavedtr) 

{ 

char ch; 

switch(port) { 
case 1: 

curPosl = 0; lastPosl — 0; 

ch = ( char) inportb(PICMASK); j* Get 8259 A (PIC) Mask */ 
ch |= INTMASK.l; /* Set Interrupt Mask COMl */ 
outportb(PIC_MASK,ch); f* Write int. mask to 8259 A* f 
/ * Clear the interrupt enable register */ 
outportb(COMADDRl + COM_IER ? 0); 

/* Clear OUT2, and set DTR as required */ 
if (leavedtr) 

outportb(COMADDRl + COM_MCR,l); 
else 

outportb(COMADDRl + COM_MCR,0); 
sctvcct(COM_INT_l,old_coml_int); /* Restore COMl int */ 
frcc(( void*)msgBufFl); / *LJE added void * to avoid warning 
break: 
case 2: 

curPos2 = 0; lastPos2 = 0; 

ch = ( char) inportb(PIC_MASK); f* Get 8259A (PIC) Mask */ 
ch |= INT_MASK_2; / * Set Interrupt Mask COMl */ 
outportb(PIC_MASK,ch); /* Write int. mask to 825 9 A*/ 
j* Clear the interrupt enable register */ 
outportb (COM ADDR2 + COM_IER,0); 

/* Clear OUT2, and set DTR as required * / 
if (leavedtr) 

outportb(COMADDR2 + COM.MCR.l); 


450 


460 
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else 

outportb(COMADDR2 + COM_MCR,0): 
sctvcct(COM_INT_2,old_com2_int); /* Restore COM2 int */ 
frcc(( void*)msgBuff2); j*LJE added void* to avoid warning*/ 
break; 

default: break; 


470 


/* 

/ * Test to see if a carrier is present */ 480 

/ * Returns True (non zero) if carrier is present, False (zero) otherwise 

7 

/*■ 

int com_carricr(ComPort port) 


{ 


switch (port) 

{ 

case 1: return ((inportb (COMADDR1 + COM.MSR) & 0x80) != 0); 
case 2: return ((inportb (COMADDR2 + COM_MSR) & 0x80) != 0); 
default: return COM_FALSE: 

} 


490 


/* 

/ * Test to see if the DSR ( Data Set Ready) signal is present 
/* Returns True (non zero) if DSR is present, False (zero) otherwise 
/* 


int com_dsr(ComPort port) 


{ 


000 


switch (port) 

{ 

case 1: return ((inportb (COMADDR1 + COM_MSR) & 0x20) != 0); 
case 2: return ((inportb (COMADDR2 + COM_MSR) & 0x20) != 0); 

default: return COM FALSE: 

} 


I* 

/ * Test to see if the COM port is ready for a new ‘ 

/ * character to transmit. *j 

/* Returns True ( non zero) if PORT is READY, False (zero) otherwise 

I* 


7 


- 019 -- 


7 


int com_rcady(ComPort port) 
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switch (port) 

{ 

case 1: return ((inportb (C0MADDR1 + COM.STAT) & 0x20) != 0): 520 
case 2: return ((inportb (COMADDR2 + COM.STAT) & 0x20) != 0): 
default: return COM FALSE: 

} 

> 



/ * Drop the DTR signal on a COM port */ 



void cora_dropdtr(ComPort port) 530 

switch (port) 

{ 

case 1: outportb (COMADDR1 + COM_MCR,0x0A ): break: 
case 2: outportb (COMADDR2 + COM.MCROxOA ): break; 

} 

/*___ 

/ * Raise the DTR signal on a COM port * j 540 


void com_raiscdtr(ComPort port) 

{ 

switch (port) 

{ 

case 1 : outportb (COMADDR1 + COM_MCR,0x0B ); break: 
case 2 : outportb (COMADDR2 + COM_MCR,0x0B ): break: 

} 


550 
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1.7 MAKEFILES, Directories and Other Files 

The “main” programs (those listed in this chapter) are kept in a directory 
together. They axe maintained using the following makefile. 

1.7.1 Make File Listing: 

a : tcsthist.cxc 

tcsthist.exe : tcsthist.obj mcssagcs.obj modlib\targa.lib makefile com3_2.obj 

link /st:27000 /CO /E /NOI /NOLOGO tcsthist+mcssagcs+irqsctup+com3_2,,,targraf+ltplib+grap; 
init_vid.exe : init_vid.obj modlib\targa.lib makefile 

link /st:27000 /CO /E /NOI /NOLOGO init_vid+mcssagcs-Firqsctup,,,targraf+ltplib+graphics+moc 
init_vid.obj : init_vid.c targa.h 

cl /nologo /W4 /Fs /Zi /c /AL init_vid.c io 

tcsthist.obj : tcsthist.c targa.h com3_2.h 
cl /nologo /W3 /Fs /Zi /c /AL tcsthist.c 

mcssagcs.obj: messages. c targa.h 
cl /AL /nologo / c /W3 /Fs /Zi messages. c 

uscr.obj : uscr.c uscr.h targa.h 
cl /AL /nologo /c /W3 /Fs /Zi uscr.c 

20 

com3_2.obj : com3_2.c com3_2.h 
cl /nologo /W3 /Fs /Zi /c /AL com3_2.c 



58 


CHAPTER 1. INTRODUCTION 


The library is located in a subdirectory of the main fii 00 a . , 

Eg* maMb “ d ^ 

L X ( Z7 h ,Fs (,i3tins) ' /Zi 

compatible with Srga) ' P °“ W ’ /AL < lar S e memory model, 

2 ' p P uTin theS iD 3 U “ make ' ib f ° r * "« ta * of «° 

3. Calls makedoc.bat to build the targa.h file. 

4. Puts targa.h in the PARENT directory of the library (this would he the 

directory containing the main routines). The idea ifvm.r b h 

c/x/hb 3 Ta some h d ;rr, (caU k c:/x) Md the 

cyx/lib. Targa.h (which the makefile deposits in C -/X) contain* *11 f 
the ,h hies so your main program need onfy include a^gTe h fi T e 

The makefile is processed with the command: nmakel'Enteri Th* vu 
makefile, makelib and makedoc.bat files follow. Watch out t L f ^ " 
n the line that compiles targa8.c there is an option DTA.MU this * 
file is being compiled at TAMU (version 6 of MSC) TherP ML h 73 ^ 
incompatibilities we noticed. If DTAMU is used the are .f me version 
version 6. Otherwise it assumes version 5 C ° mpiIeS 


1.7.2 Make File Listing: 


#Thc following arc in the library 

#rcmowid geometry to use newgeo never compiled since multiple leds 
#targa.hb: makelib PLOT.OBJ MEMORY ORT „„„ » “"P cas 

targa.lib: makelib PLOT.OBJ MEMORY OBJ MIs7oRTpno7/!f C ' OBJ P0SE 0BJ TARGA8.0BJ 
del targadib mumuhy.OBJ MISC.OBJ POSE.OBJ TARGAS.OBJ BLOB.OBJ DIP 

lib ©makelib 
makedoc.bat 

blob.obj : blob.c datatypc.h blob.h targa8.h mcmory.h misc h 
cl /nologo /W4 /Fs /Zi /c /AL blob.c 

dip.obj : dip.c datatypc.h plot.h dip.h target h 
cl /nologo /W4 /Fs /Zi /c /AL dip.c 

gcomctry.obj : gcomctry.c datatypc.h gcomctry.h memory h 
cl /nologo /W4 /Fs /Zi /c /AL geometry.c ^ 

memory. obj : mcmory.c mcmory.h 
cl /nologo /W4 /Fs /Zi /c /AL mcmory.c 
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20 

MISC.obj : MISC.c misc.h datatypc.h 
cl /nologo /W4 /Fs /Zi /c /AL MISC.c 

PLOT.obj : PLOT.c plot.h datatypc.h 
cl /nologo /W4 /Fs /Zi /c /AL PLOT.c 

posc.obj : posc.h datatypc.h posc.c misc.h 
cl /nologo /W4 /Fs /Zi /c /AL posc.c 

TARGA8.obj : TARGA8.C targa8.h datatypc.h 30 

cl /DTAMU /nologo /W4 /Fs /Zi /c /AL TARGA8.C 

TARGET.obj : TARGET.c datatypc.h targa8.h targct.h misc.h 
cl /nologo /W4 /Fs /Zi /c /AL TARGET.c 

targutil.obj : targutil.c targutil.h datatypc.h targa8.h misc.h 
cl /nologo /W4 /Fs /Zi /c /AL targutil.c 

accum.obj : accum.c datatypc.h accum.h targa8.h 

cl /nologo /W4 /Fs /Zi /c /AL Accum.c 40 

roi.obj : roi.c datatypc.h roi.h TARGA8.h TARGET.h PLOT.h MISC.h DIP.h 
cl /nologo /W4 /Fs /Zi /c /AL roi.c 
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1.7.3 Make File Listing: 

targa.lib 

Y 

+PLOT.OBJ & 

+MEMORY.OBJ & 

+MISC.OBJ & 

+POSE.OBJ & 

+TARGA8.0BJ & 

+BLOB.OBJ & 

+DIP.OBJ & 

+TARGUTIL.OBJ & 
+GEOMETRY.OBJ & 
+ACCUM.OBJ & 

+ROI.OBJ & 

+TARGET.OBJ ; 
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1.7. MAKEFILES, DIRECTORIES AND OTHER FILES 

1.7.4 Batch File Listing: 

rename datatype. h datatypc.hh 
copy *.h lib.hh 

rename datatypc.hh datatypc.h 

copy datatypc.h lib.h 

type lib.hh >> lib.h 

copy lib.h ..\targa.h 

del lib.hh 

del lib.h 
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Chapter 2 

accum.c, accum.h 


Documentation Date: 3/9/95 

2.1 Accumulating Images To Build Signal 

The routines in this file accumulate the signal from a series of images to build 
the signal. They are used when there is low light levels returning such as in 
long distance applications. 

New Data Types: 

None. 

Definitions: None. 

2.1.1 Header File Listing: 

#ifndef ACCUM.H 
#define ACCUM.H 

long NcwDo Accumulation ( int on, int off, int accum, int accumshow): 
void DoAccumulation( int on, intoff, int accum): 

#endif 
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2.2 Function: NewDo Accumulation 

Documentation Date: 3/9/95 
Prototypes: 

long NewDoAccuraulationCint on, int off, int accum, int accumshow); 

Source File: accum. c 

Type of Function: User Callable 

Header Files Used in accum.c: ’’datatype.h” ”targa8.h” ’’accum.h” 

Description: 

This routine takes four image numbers. Image numbers on and off are obvi- 
ous. Frame accum is a temporary image that holds the history of bright pixels. 
Image accumshow is the accumulated image. Don’t display accum, it will look 
weird. Accumshow can be displayed. Basically the on and off are subtracted, 
any subtracted pixel that has intensity greater than 1 gets its subtracted in- 
tensity added to the corresponding pixel in accumshow. Now, the history is 
tested for the pixel. If the pixel had a subtracted intensity greater than 1 in 
any three of the previous four processing steps. Then the accumulated pixel in 
accumshow is left alone. If the pixel was not “bright enough” in three of the 
four previous steps, the pixel in accumshow is set to zero (black). The return 
value is the number of saturated pixels in accumshow. Accumulations greater 
than 255 (white) are chopped back to 255. 


2.3 Function: DoAccumulation 

Documentation Date: 3/9/95 
Prototypes: 

void DoAccumulation (int on, int off, int accum); 

Source File: accum.c 

Type of Function: User Callable 

Header Files Used in accum.c: ” datatype.h ” ”targa8.h” ’’accum.h” 

Description: 

This routine takes three image numbers. Image numbers on and off are obvi- 
ous. Frame accum is a temporary image that holds the accumulated image. 
Accum can be displayed. Basically the on and off are subtracted, any sub- 
tracted pixel that has intensity greater than 0 gets its subtracted intensity 
added to the corresponding pixel in accum. Accumulations greater than 255 
(white) are chopped back to 255. 
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2.3.1 Program Listing: 

#include "datatype. h" 

#include "targa8.h" 

#include "accum. h" 

ImagcLinc online, offline; 

ImagcLinc accumlinc; 

void Do Accumulation ( int on, int off, int accum) 

int ij; 
long temp; 

for(i=0;i<IMAGEHEIGHT;i++){ 

GctLinc(i, on, online); 

GctLinc(i, off, offline); 

GctLinc(i, accum, accumlinc); 
for(j=0;j<IMAGEWIDTH;j++){ 
temp = (( long) onlinc[j] — ( long) offlinc[j]); 
if (temp > 0)tcmp = ( long) accumlinc[j] + temp: 
else temp = 0; 
if(tcmp > 255) temp = 255; 
accumlincjj] = (Pixel) temp: 

} 

PutLinc(i, accum, accumlinc): 

} 

} 


ImagcLinc tcstaccumlinc; 

long NcwDoAccumulation( int on, int off, int tcstaccum, int accum) 
int i,j; 

long tcmp,tcmp2; 
long numof255s; 
numof255s = 0; 

for(i=0;i<IMAGEHEIGHT;i++){ 


GctLinc(i, on, online); //Single line from "on" frame 
GctLinc(i, off, offline); //Single line from "off" frame 

GctLinc(i, accum, accumlinc); //Single line from accumulation frame 

GctLmc(i, tcstaccum, tcstaccumlinc); //Single line from "history" frame 

for(j=0;j<IMAGEWIDTH;j++){ 

temp = (( long) onlinc[j] - ( long) offlinc()]); //Difference of on and 

(i,j) pixel 

if (temp > 1){ //If difference is 2 or more gray levels 

tcmp2 — ( long) accumlinc[j] + temp; //Add difference of pixels to accumulation 

temp = (( long) tcstaccumlinc[j])/2; //Shift bits in history line 

temp = 128 + temp; //Turn on first bit in pixel history 

else { //Difference is less than 1 gray level 
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temp = (( long) tcstaccumlinc[j])/2: //No difference, shift bits in history 

line 

tcmp2= ( long) accumlincj)]; //Docs not change, added 1/13/95 

/ 50 

if (temp > 255) temp — 255,’ //truncate history frame (necessary?) 
if(tcmp2 > 255) { //Truncate at brightest level 
tcmp2 = 255; 

numof255s++; //Count number of brightest pixels 

} 

accumlincjj] = (Pixel) tcmp2; //Set permanent accumulation line 

tcstaccumlinc[j] = (Pixel) temp; //Set permanent history line 
temp = temp / 16; //Temp is 8 bits, look at first 4 bits 

//pixel on in 3 of last 4 subtractions 

// if( !(((tcmp>12) && (tcmp<16)) || (tcmp==ll) || (tcmp==7)) ) accumlindj] 
= (Pixel) 0; 

//0110, 0111, 1011, 1100, 1101, 1110, 1111 original test for good pixel 

if( !(((tcmp>10) (tcmp<16)) || (tcmp==6) || (tcmp==7)) ) accumlinc[)] 

= (Pixel) 0: 

} 

PutLinc(i, accum, accumlinc); //Put accumulation line back in frame 

PutLinc(i, tcstaccum, tcstaccumlinc); //Put history line back in frame 

return numof255s: 

} 
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Chapter 3 
blob.c, blob.h 


Documentation Date: 6/27/94 


3.1 Perform Blob Analysis. 

The one user callable routine in this file subtracts images and performs a blob 
analysis. 

New Data Types: 


• typedef long Bsize; 

• typedef DPixel Tag; /*A name for the blob*/ 

• typedef long DoWa; 

• struct BlobStruct { Tag tag; /*Its name*/ char active; /*Active blobs 
are still growing*/ Bsize size; /*Number of Pixels*/ Bsize rsum: /*Row 
number sum*/ Bsize csum; /*Column number sum*/ Bsize totalbright; 
/*Sum of all pixels*/ DoWa totalbrightsq; /*Sum of all pixels sq.*/ long 
numwraps, struct BlobStruct *previous; struct BlobStruct *next; 

• typedef struct BlobStruct BLOBSTRU; 

Definitions: 

• BIGINT = 2000000000 

• IsBright (pixel, NegThreshold,PosThreshold) = ((pixel<NegThreshold) II 
(pixel>PosThreshold)) 

• LeftNeighbor(row,column,start, resol) = ((column>start)?(row[column- 
resol]):start) 

• TpperNeighbor(row, column) = (row[column]) 
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• NoSubtract = 1 

• SingleSubtract = 2 

• DoubleSubtract = 3 


CHAPTER 3. BLOB.C, BLOB.H 


SameSign(a,b) = (((a > 0) kk (b > 0)) || ((a < 0) kk (b < 0))) 


3.1.1 Header File Listing: 

#ifndef BLOB_H 
#define BLOB.H 

/ *This is intended for the Targa board */ 

/ *blob analysis for pagel - page e 2*/ 

/ * Description: 

posblobs have intensity above PosThreshold 
negblobs have intensity below NcgThreshold 
on return Neg(pos)numbertofind = actual number found 

If StoragePage is nonnegative StoragePage contains the absolute value of subtracted 
pages 

The blobs are stored in posblobs and negblobs 
If SecondOn > =0 then double subtract 

Threshold of FirstOn — Dim and Threshold of SecondOn — Dim 
If Off < 0 then no subtract 
Else Threshold of FirstOn — Off 

. 7 

DPixc^Nc^^ * int Sccond0 »- int StoragePage, int -NcgNumbcrToFind. 

D p xxd NcgThreshold. OncBlob negblobs. mt *PosNumbcrToFind. DPixcl PosThreshold. 

OncBlob posblobs, OncBlob ’‘background, long LargcstToFind.' long SmallcstToFind 
ROI roi); ! 

I* Errors: 0 is success */ 

# define ERROR.CHECKING 
#define BAD.XS 1 
#define BAD.XE 2 
#deflne BAD.YS 3 
#define BAD.YE 4 
#deflne BAD.RESOLUTION 5 
#endif 
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3.2 Function: ExtractBlobs 

Documentation Date: 6/24/94 
Prototypes: 

int ExtractBlobs (int FirstOn, int Off, int SecondOn, int StoragePage, 
int *NegNumberToFind, DPixel NegThreshold, OneBlob ♦negblobs, int 
♦PosNuraberToFind, DPixel PosThreshold, OneBlob ♦posblobs, OneBlob 
♦background, long LargestToFind, long SmallestToFind, ROI roi) 

Source File: blob.c 

Type of Function: User Callable 

Header Files Used in blob.c: <stdlib.h> <stdio.h> <math.h> ’’datatype.h” 
”targa8.h” ’’blob.h” ’’memory. h” ’’misc.h” 

Description: 

This routine performs a single or double subtract on images and determines 
the blobs present in the resulting image. It can find both positive and negative 
blobs simultaneously. A positive blob is one with intensity > 0 after subtrac- 
tion. A negative blob has intensity < 0 after subtraction. The roi is a Region 
of Interest and determines the subset of the image to search. 

FirstOn, Off, SecondOn and StoragePage are image numbers. To perform 
blob analysis without subtraction set Off and SecondOn to -1. To perform 
single subtraction set SecondOn = -1. If you do not want to see the image as 
it is being processed set StoragePage = -1. The only TARGA image memory 
that is modified is the image located at StoragePage. It is possible to perform 
the blob analysis without destroying any image data, just set StoragePage 
= -1. When “storing" (displaying) the results as they are processed (when 
StoragePage > -1), the routine shows: 

1. the FirstOn frame (when Off = -1) line by line as the blobs are extracted: 
or 

2. FirstOn - Off line by line. 

Posls umberToFind (NegNumberToFind) is the number of positive (nega- 
tive) blobs to find. Either one can be zero. The routine first finds all of the 
blobs, then it picks out the PosNumberToFind (NegNumberToFind) largest 
positive (negative) blobs and ignores the rest. You do not save much time by 

setting these to small values since the routine first finds all blobs then selects 
them. 

PosThreshold (NegThreshold) is a positive (negative) number that indi- 
cates whether a pixel belongs in a blob. The test applied is: “A pixel is Bright 
(should be in a blob) IF its intensity < NegThreshold OR its intensity > 
PosThreshold . This test is applied differently for each subtraction algorithm 
as follows: 
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1 

2 
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4 
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Figure 3.1: A U Shaped Blob and a Small Piece of “Noise”. 


a b c d e f g 



1. For No Subtraction: Is FirstOn pixel intensity bright? 

2. For Single Subtraction: Is FirstOn - Off pixel intensity bright? 

3. For Double Subtraction: Is FirstOn - Off pixel intensity bright AND 
is SecondOn - Off pixel intensity bright AND are they both positive or 
both negative? If so, their average intensity is used in the blob. 

If you do not want to find negative blobs and you want the algorithm to execute 
quickly, you should set NegThreshold -255 so nothing negative will pass the 
brightness test. 

The background is a blob of everything that does not pass the threshold 
test. LargestToFind and SmallestToFind are size limits (in pixels) for the 
blobs. It is applied after each line is processed. All blobs that have stopped 
growing are tested to see if they pass the size restrictions. If they fail, they 
are put in the background and deleted. 

The roi is a region of interest. Its data structure contains the starting and 
ending rows and columns of a rectangle to search and the resolution to use in 
the search. If resolution is 1, the routine searches every row and column in the 
roi. At resolution 2, every second row and column are searched. 

3.2.1 Theory 

Figure 3.1 shows a u shaped blob in an image and a one pixel piece of noise. 
The horizontal lines indicate rows in the image. Numbers on the left indicate 
row numbers. The dots indicate pixels in the image. The a, b, c ... on the 

top indicate columns in the image. This figure will be used to describe the 
method used to find blobs. 
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To find blobs, the algorithm keeps only two lines of image in memory'. One 
line is the one currently being processed (call it the current line), the second 
line is the one just previous to the current (call it the previous line). The 
previous data line does not actually contain image data. As the explanation 
proceeds it will become clear what the data is. When the algorithm starts, 
previous is set to zero. Since the algorithm implements a resolution (in the roi) 
the previous and current lines may be separated. For example, if resolution is 
2 and previous is line 3 then current is line 5. Also note that image subtraction 
(if performed) is done “on the fly” so in actuality, the routine may use one, two 
or three lines of data for current depending on whether no, single or double 
subtraction is being performed. To understand blobbing however just imagine 
that a subtraction has already been performed and we have only two lines of 
data to look at. 

When processing line 1 (see figure 3.1), no pixels pass the brightness test 
because none of them contain part of the u shape. When line 1 finishes, we 
have no blobs and previous is still all zero. As we process line 2 as current, 
pixel 2, a is found to be bright. The algorithm looks to the left of pixel 2.a and 
above 2, a to see if those pixels were also bright (how this is done will become 
clear when 2,b is discussed). Since they were not bright, pixel 2, a is a member 
of a new blob. A blob is created, given a tag or name (1 for example) and 
pixel 2, a is added to the new blob (see routine PutltlnBlob). After adding 2, a 
to the blob named 1, the number 1 is stored in l,a (previous line, column a). 1 
When 2, a is added to blob 1, the blob is set active (growing). Next pixel 2,b is 
tested and found to be bright. The routine looks left (actually in previous, a) 
and finds it non-zero (it is 1) which says pixel 2,b is a member of blob 1. Pixel 
2,b is added to blob 1 and 1 is stored in previous,b. Pixel 2,c is found dim so 
it is ignored hence previous, c is left zero. Pixel 2,d is tested and found bright, 
previous, c is zero so 2,d is considered a member of a new blob (call it blob 2). 
A blob is created and 2,d is added to it. Blob 2 is made active (growing) and 
2 (the blob pixel 2,d belongs to) is stored in previous,d. Pixel 2,e is added to 
blob 2. Pixel 2,g becomes a member of blob 3. 

At the end of the line, the routine looks for any inactive blobs. All three 
blobs are active (growing) so we set them all inactive and proceed to process 
line 3. When 3, a is found bright, we look left (nothing) and up (look at 
previous,a). Since previous, a is 1, pixel 3, a is added to blob 1 and previous, a 
is again set to 1 (no change actually). Since blob 1 had something added, it 
is set active (growing). Eventually we get to 3,d which is added to blob 2 and 
blob 2 is set active. After processing 3,e no other pixels are bright so we are 
at the end of the line. At the end we look for inactive blobs and find blob 3. 
Since blob 3 has stopped growing it is tested against the size limits, if it passes 
it is kept. In fact, if blob 3 manages to pass the size tests, it will be retested 
after every line. This is a waste of time but makes the logic easier. 


1 Actually previous, a is tested before 1 is stored in it. It will soon become clear why the 
test is performed first. 
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The only other interesting consideration is when pixel 5,c and 5,d are en- 
countered. When 5,c is found bright and previous.b is found equal to 1, pixel 
5,c is added to blob 1 and previous, c is set to 1 (standard procedure). Now 
when 5,d is found bright and previous, c is 1, it is added to blob 1. Now before 
previous, d is changed to 1 it is tested (standard procedure). When previous, d 
is discovered to equal 2, the algorithm realizes that blobs 1 and 2 are actually 
the same. The routine adds blob 2 to blob 1 (see JoinBlobs) then replaces all 
values of 2 in previous to 1. 
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3.3 Function: FindBlobPointer 

Documentation Date: 6/24/94 
Prototypes: 

BLOBSTRU *FindBlobPointer(Tag tag) 

Source File: blob.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in blob.c: <stdlib.h> <stdio.h> <math.h> "datatype. h” 

”targa8.h” ” blob.h ” "memory. h” ” misc.h ” 

Description: 

The BLOBSTRU is only used in blob.c, it is a linked list of blobs. The list is 
created by tacking new blobs onto the end of the list. The tag is basically a 
Long Int number that numbers the blob. This routine searches the linked list 
looking the the blob with a tag equal to what is passed to it. If it cannot find 
one, it returns NULL. If it finds the correct blob, it returns its address. 

3.3.1 Theory 

This routine can certainly be improved. For example, most times we search 
for the blob most recently added to the list (at the end), yet we begin the 
search at the beginning. In addition, this could be eliminated with maybe a 
hashing table (I think that is what it is called). 
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3.4 Function: MakeAllBlobsInActive 

Documentation Date: 6/24/94 
Prototypes: 

void MakeAllBlobsInActive () 

Source File: blob.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in blob.c: <stdlib.h> <stdio.h> <math.h> ” datatype. h ” 

”targa8.h” ’’blob.h” ’’memory.h” ’’misc.h” 

Description: 

This routine looks through the BLOBSTRU linked list and sets all blobs as 
inactive. This indicates that their size is no longer changing. 

3.4.1 Theory 

Whenever a pixel is added to a blob, the blob is set active which means it is 
growing. After a line has been processed, all inactive blobs are tested to see if 
they pass the minimum and maximum size limits then they are kept. If they 
fail the tests they are deleted. This is done to reduce the amount of memory 
used since there may be a large number of very small blobs. After testing 
for active and inactive blobs, all of them are set inactive. In this way when 
processing on the next line is finished, the only active blobs will be the ones 
that have grown during that line. 
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3.5 Function: PutltlnBlob 

Documentation Date: 6/24/94 


Prototypes: 


void Put It InBlob (DPixel *pixel. 
Tag tag) 

Source File: blob.c 


int row, int column, DPixel gray, 


Type of Function: Internal to the Library, Not User Callable 
Header Files Used in blob.c: <stdlib.h> <stdio.h> <math.h> ” datatype. h” 
targa8.h blob.h memory. h” ’’misc.h” 


Description: 

Every pixel that passes the threshold test is added to a blob. The routine 
receives a pointer to the pixel, the pixel’s row and column coordinates on the 
screen, its intensity and the name (tag) of the blob that the pixel belongs to. 
The routine increments the blob named tag by the values sent, sets it active, 
stores tag where the pixel used to be then returns. 


3.5.1 Theory 

This routine helps to compute the following items for every blob: 

1. Area, 

2. Row and column centroid, 

3. Average brightness, 

4. Standard deviation of brightness (actually it is the variance) 
Area is computed as the number of pixels in the blob. 


^ = £(i) 


i=l 


Here A is area, N b is the number of pixels in blob b. Row centroid is computed 
as: r 

E&U) 

The term r { is the row position of the tth pixel in blob b. Column centroid is 
computed similarly. Average brightness is: 
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The brightness deviation is: 


D = 
D = 


ESi(i) 
sa. n D , 


In this routine, only the sums are computed. The other calculations are per- 
formed in Copy ToBlob Array. ^ 

When a pixel in added to a blob the blob is made active. To understand 
why this is done, see routine MakeAUBIobsInactive. To assist in processing 

“ To™? 15 me ’ P1Xel ‘“ enS ' ty ' S repIaced b y the Wob tag, see routine 
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3.6 Function: Miscellaneous Support Rou- 

tines in Blob.c 

Documentation Date: 6/27/94 

Prototypes: 

void KillAllBlobsO 

void DumpAllBlobsIntoBackKill(void) 

void CopyToBlobArray (BLOBSTRU * blob, OneBlob array[], int whichone, 
int resolution) 

BLOBSTRU * GetLargestPosBlobO 
BLOBSTRU * GetLargestNegBlobO 
Tag NewBlobO 

void BlobsInOneRowCint SubtractType, int rownum, int xs, int xe, 
int resolution, ImageLine one, ImageLine two, ImageLine three, DlmageLine 
neighbors, DPixel NegThreshold, DPixel PosThreshold) 

void JoinBlobs (DlmageLine row. Tag parentnum. Tag childnum) 
void DumpBloblntoBackgroundThenKill (BLOBSTRU *blob) 
void DumpSmallInactBackKill(Bsize smallsize) 

void DumpSmallBigInactBackKill(Bsize smallsize, Bsize largesize) 
void KillBlob (BLOBSTRU *blob) 

Source File: blob.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in blob.c: <stdlib.h> <stdio.h> <math.h> ’’datatype.h” 

”targa8.h” ” blob.h ” ’’memory.h” ”misc.h” 

Description: 

• KillAllBlobs - Killing a blob means freeing the memory it uses and piec- 
ing the linked list back together. This kills all blobs. 

• DumpAllBlobsIntoBackKill - This routine joins a blob to the background 
blob then kills the blob. 

• CopyToBlobArray - When we are finished finding blobs, we copy the 
linked list into the return structure. It also computes centroids etc. 
using the sums collected during blobbing. 

• GetLargestPosBlob - Returns the address of the largest positive blob in 
the linked list. 

• GetLargestNegBlob - Returns the address of largest negative blob in the 
linked list. 

• NewBlob - Allocate memory for a new blob structure. Fit it into the 
linked list. Returns its tag. 
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• BlobsInOneRow - For a row rownum, check the bright pixels to see which 
blob they belong to. 

• JoinBlobs - JoinBlobs join two blobs together then kill the child. 

• DumpBloblntoBackgroundThenKill - Join a blob to the background 
blob, then kill the blob. 

• DumpSmalllnactBackKill - This walks the blob linkage and kills all in- 
active blobs that are too small. 

• DumpSmallBiglnactBackKill - Join blobs that are too small or too big 
to the background blob, then kill the blob. 

• KillBlob - To Kill a blob means to remove it from the linked list and free 
its memory. 
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3.6.1 Program Listing: 

#include <stdlib.h> 

#include <stdio.h> 

# include <math.h> 

^include "datatype. h" 

# include VISIONBOARD 
# include "blob.h" 

# include "memory. h" 

#include "misc.h" 
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Local Prototypes and Definitions 

**************t*t****************t*i 

j*A Bright pixel is < NegThreshold or > PosThreshold *j 

#define IsBright(pixcl 1 NcgThrcshold,PosThrcshold) ((pixcl<NcgThrcshold) || (pixcl>PosThrcshol 
#deflne LcftNcighbor^owxoliimn^tart^csol) ((column>start)?(row[column-rcsol]);start) 
^define UppcrNcighbor(row, column) (row[columnj) 

/ *This is a linked list of blobs */ 
typedef long Bsizc; 

typedef DPixcl Tag; / *A name for the blob*/ 

typedef long DoWa; 

#define BIGINT 2000000000 / *if DoWa is a long*/ 
struct BlobStruct { 

/ *Its name*/ 

/* Active blobs are still growing*/ 

/ *Number of Pixels*/ 

/ *Row number sum*/ 

/ * Column number sum*/ 

/ *Sum of all pixels*/ 

/ *Sum of all pixels ~2*/ 
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Tag tag; 
char active; 

Bsizc size: 

Bsizc rsum; 

Bsizc esum; 

Bsizc totalbright; 
DoWa totalbrightsq: 


long numwraps; 
struct BlobStruct ^previous; 
struct BlobStruct *ncxt: 

}; 

typedef struct BlobStruct BLOBSTRU; 
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void DumpBlobIntoBackgroundThcnKill(BLOBSTRU *blob): 
void DumpAllBlobsIntoBackKill( void): 

/ *The tag is a number designating the blob */ 

Tag NcwBlob( void); 

/ *JoinBlobs join two blobs together then kill the child*/ 40 

void JoinBlobs(DImagcLinc row. Tag parent, Tag child): 

/ *This puts information into blob tagged tag f then stores tag in the pixel at 
row , col*/ 

void PutItInBlob(DPixcl *tagptr, int row, int col, DPixcl pixel, Tag tag): 

/ MakeAllBlobsInActivc This walks the blob linkage and makes all of them inactive . 
this means they have finished growing*/ 
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void Make AllBlobsIn Active ( void); 
void KillAllBlobs( void); 

void CopyToBlobArray(BLOBSTRU * blob, OneBlob array[], int whichonc, int resolution): 
BLOBSTRU * GctLargcstPosBlob( void); 50 

BLOBSTRU * GctLargcstNcgBlob( void); 

Tag NcwBlob(); 

/ *DumpSmallInactivcIntoBackgroundThenKill This walks the blob linkage and kills 
all inactive blobs that are too small */ 
void DumpSmallInactBackKill(Bsizc small); 
void DumpSmallBiglnactBackKill (Bsizc smallsizc, Bsizc largcsizc); 
void KillSmallandBiglnactivc (Bsizc SmallcstToFind, Bsizc LargestToFind): 
void MakcAllBlobsInActivcQ; 

/*To Kill a blob means to remove it from the linked list and free its memory */ 
void KillBlob(BLOBSTRU ♦blob); 60 

void BlobsInOncRow( int SubtractTypc, int rownum, int xs, int xc, int resolution, 
ImagcLinc one, ImagcLinc two, ImagcLinc three, DImagcLinc neighbors. DPixcl 
NcgThrcshold, DPixcl PosThrcshold); 

/ *FindBlobPointer looks for a particular blob tag and returns a pointer to the 
togged blob. NULL is a blob with tag is not found*/ 

BLOBSTRU *FindBlobPointcr(Tag tag); 

j *********************************** 

Local Data 

************************** *********/ 

/ 70 

BLOBSTRU *FirstBlob; 

Tag BlobTag; 

BLOBSTRU BackGround; 

^define NoSubtract 1 
#deflne SinglcSubtract 2 
^define DoublcSubtract 3 

/ *This routine performs a single or double subtract on images and 

determines the blobs present in the resulting image. It can find so 

positive blobs (those with intensity >0 after subtraction) and 

negative blobs ( intensity < 0 after sub.). The roi determines the region 

of interest to search in. 

FirstOn, Off, SccondOn and StoragePage are image numbers. 

NegNumberToFind, NcgThrcshold and negblobs control finding the 
negative blobs. 

PosNum... control finding the positive blobs. 

background is a blob of everything that does not pass the thresholds. 

LargestToFind, Small... and roi are sizes and region of interest 

7 

' 90 

int ExtractBlobs( int FirstOn. int Off. int SccondOn. int StoragePage, 
int *NcgNumbcrToFind, DPixcl NcgThrcshold, OneBlob *ncgblobs, 
int *PosNumbcrToFind, DPixcl PosThrcshold, OneBlob *posblobs. 
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OncBlob *background, long LargcstToFind. long SmallcstToFind, 

ROI roi) 

{ 

ImagcLinc *imlinc; 

ImagcLinc *onc, *two, *thrcc; 
int i.r,c; 

int SubtractTypc; 100 

BLOBSTRU *TcmpBlob; 
static DImagcLinc *ncighbors; 

#ifdef ERROR.CHECKING 

if( (roi.xs < 0) || (roi.xs > IMAGEWIDTH)) return(BAD_XS); 

if( (roi.xc <= roi.xs) || (roi.xc > IMAGEWIDTH)) return(BAD_XE): 

if( (roi.ys < 0) || (roi.ys > IMAGEHEIGHT)) return(BAD_YS); 

if( (roi.yc <= roi.ys) || (roi.yc > IMAGEHEIGHT)) return(BAD_YE); 

if( (roi.rcsolution < 1) || (roi.rcsolution > IMAGEWIDTH) ) return(BAD_RESOLUTION); 

if( (roi.rcsolution > (roi.xc - roi.xs)) || (roi.rcsolution > (roi.yc-roi.ys))) return(BAD_RESO 

#endif 110 

neighbors = (DImagcLinc *) MALLOC( sizeof(DImagcLinc)); 
one = (ImagcLinc *) MALLOC( sizeof(ImagcLinc)); 
if( (neighbors == NULL) || (one == NULL) ) 

Fatal_Error_Mcssagc("Out of Memory in Beginning of Blob.' 1 ); 

/ ^Determine method of subtraction. Possibilities are: 

1 . Don’t subtract , use FirstOn image (Selected if Off < 0) 

2 . Single subtract, use FirstOn — Off ( Select if SecondOn < 0) 

3 . Double subtract , use FirstOn - Off anded with SecondOn — Off 120 

(both subtractions must pass the threshold test) *f 
SubtractTypc = NoSubtract; 
if(Off >= 0){ 

SubtractTypc = SinglcSubtract; 

two = (ImagcLinc *) MALLOC( sizeof(ImagcLinc)); 

if( (two == NULL) ) Fatal_Error_Mcssagc( M Out of Memory in Beginning of Blob."); 
if(SccondOn >= 0){ 

SubtractTypc = DoublcSubtract; 

three = (ImagcLinc *) MALLOC( sizeof(ImagcLinc)); 

if( (three == NULL) ) FataLError Mcssagc("Out of Memory in Beginning of Blob,"): 

} 

} 

/*If a non— negative storage page is given then show the image while 
processing* j 

if(StoragcPagc > — 1) { 

imlinc = (ImagcLinc *) M ALLOC ( sizeof(ImagcLinc)); 
if( (imlinc == NULL) ) Fatal_Error_Mcssagc("Out of Memory in Beginning 
of Blob."): 

} 


140 
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LargcstToFind = LargcstToFind / (roi.rcsolution * roi.rcsolution); 
SmallcstToFind = SmallcstToFind / (roi.rcsolution * roi.rcsolution); 

/ *The blobs are put in a linked list for this routine only. 

Initialize list*/ 

FirstBlob = NULL; 

BlobTag = 0; 

BackGround.sizc = (Bsizc) 0; 

BackGround.rsum = (Bsizc) 0; 

BackGround.csum = (Bsizc) 0; 

BackGround. totalbright = (Bsizc) 0; 

/*The following allows extra long ints*/ 

BackGround.totalbrightsq = (DoWa) 0; 

BackGround.numwraps = 0; 

/ * Prepare to process first line */ 
if(StoragcPagc == -l)Status_Mcssagc("Processing"): 

for(i=0;i<IMAGEWIDTH;i++) (Neighbors) [i]= 0 ; 

/* Process each image line*/ 

for(r=roi.ys;r<roi.yc;r=r+roi.rcsolution){ 

/* First get each line*/ 

/ *GetLine and PutLine are device (TARGA) dependent*/ 
switch (SubtractTypc) { 
case DoublcSubtract: 

/ *This says copy line r from SecondOn image 
into array three*/ 

GctLinc(r,SccondOn,*thrcc); 
case SinglcSub tract : 

GctLinc(r,Off,*two); 1 

case NoSubtract: 

GctLinc(r,FirstOn,*onc); 

/* Display the line if necessary*/ 
if(StoragcPagc > -1){ 
if (Off > -1){ 

for(c=roi.xs;c<roi.xc;c=c+roi.rcsolution){ 

(*imlinc)[c] = (Pixel) abs( (DPixcl) (*onc)[c] - (DPbccl) (*two)[cj ); 

i 8 

PutLinc(r.StoragcPagc.*imlinc): 

} 

else PutLinc(r,StoragcPagc,*onc); 


/ Find the pixels that belong to blobs in this row. 

All blobs that have had pixels added become active during this step*/ 
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BlobsInOncRow(SubtractTypc, r, roi.xs, roi.xc, roi.rcsolution, *onc, *two. 
*thrcc, *ncighbors, NcgThrcshold, PosThrcshold); 

/ *Any blob that is inactive at this point has finished growing. 190 

If it is through growing, check its size and kill it is the 
wrong size. Kill means delete after dumping the information into 
the background. */ 

DumpSmallBigInactBackKill((Bsizc) SmallcstToFind, (Bsizc) LargcstToFind); 
/ *by making all blobs inactive, only the ones activated by the next row 
mil reactivate * / 

MakcAllBlobsInActivc(): 

} 

f*We have all the blobs were gonna get 200 

Walk the list returning the largest blobs 
Copy the largest blobs into the proper storage locations*/ 
for(r= 0 ;r<*PosNumberToFind;r-h+){ 

TcmpBlob = GctLargcstPosBlobQ; 
if(TcmpBlob != NULL){ 

CopyToBlobArray(TcmpBlob,posblobs*r,roi. resolution); 
KillBlob(TcmpBlob): 

} 

else *PosNumbcrToFind = r; 

} 210 

for(r= 0 ;r<*NcgNumbcrToFind;r+- 1 -){ 

TcmpBlob = GctLargcstNcgBlob(); 
if(TcmpBlob != NULL){ 

CopyToBlobArray(TcmpBlob.ncgblobs.r.roi.rcsolution): 

KillBlob(TcmpBlob): 

} 

else *NcgNumbcrToFind = r: 

} 

j*All remaining blobs are small ones*/ 

DumpAllBlobsIntoBackKillQ; 220 

/ *Copy the background to its proper storage area*/ 
CopyToBlobArray(&BackGround,background, 0 ,roi. resolution); 

f*Free memory and return*/ 

FREE (neighbors); 

FREE(onc); 
if(Off>= 0 ){ 

FREE (two); 

if(SccondOn >= 0 ) FREE(thrcc); 

} 230 

if(StoragcPagc > -l)FREE(imlinc); 
if(StoragcPagc == — l)clcar_status(); 
return(SUCCESS) : 

} 
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I *********************************** 

Local Functions 

Killing a blob means freeing the memory it uses and piecing the linked 240 

list back together. This kills all blobs. 

***********************************/ 

void KillAUBlobsO 

{ 

BLOBSTRU *blob, *prcv; 
blob = FirstBlob; 
while(blob != NULL){ 
prcv = blob; 
blob = blob— >ncxt; 

KillBlob(prcv): 2 &o 

} 

} 

/ *This routine joins a blob to the background blob then kills the 
blob. */ 

void DumpAllBlobsIntoBackKill( void) 

{ 

BLOBSTRU *blob, *prcv: 
blob = FirstBlob; 

while(blob != NULL){ 260 

prcv = blob: 
blob = blob— >ncxt; 

DumpBloblntoBackgroundThcnKill(prcv): 

} 

} 

/ * When we are finished finding blobs f we copy the linked list into the 
return structure. It also computes centroids etc . using the sums 
collected during blobbing. */ 

void CopyToBlob Array (BLOBSTRU * blob, OncBlob array [], int whichonc, ini resolution) 
double temp; 

temp = ( double) blob— >numwraps; 
temp = temp * ( double) BIGINT: 
temp = temp + blob— >totalbrightsq; 

array[whichonc].ccntx = ( ( double) blob->csum )/ ( ( double) blob->sizc ); 
array [whichonc]. ccnty = ( ( double) blob->rsum )/ ( ( double) blob->sizc ); 
array [whichonc]. gray = ( ( double) blob->totalbright )/ ( ( double) blob->sizc 

); 

array [whichonc]. variance = temp / ( ( double) blob— >sizc ) — array[whichoiBs].gray*array[whichonc 
array [whichonc]. size = blob->sizc * resolution * resolution: 
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array [which one], radius — sqrt(array[whichonc].sizc / M PI): 


/ *Returns the largest positive blob in the linked list. *f 
BLOBSTRU * GctLargcstPosBlob() 

BLOBSTRU *blob, *rctbl; 

Bsizc largest; 
blob = FirstBlob; 
rctbl = NULL; 
largest = 0; 
while(blob!=NULL){ 

if(blob— >totalbright < 0) blob=blob— >ncxt: 
else{ 

if(blob— >sizc > largcst){ 
largest = blob— > size; 
rctbl = blob: 

} 

blob=blob— >ncxt: 

} 

} 

return rctbl; 


/ *Returns the largest negative blob in the linked list. */ 
BLOBSTRU * GctLargcstNcgBlobQ 

BLOBSTRU *blob, *rctbl; 

Bsizc largest; 
blob =s FirstBlob; 
rctbl = NULL; 
largest = 0; 
while(blob!=NULL){ 

if(blob >totalbright > 0) blob = blob— >ncxt: 
else{ 

if(blob— >sizc > largest) { 
largest = blob— >sizc; 
rctbl = blob: 

} 

blob=blob— >ncxt: 

} 

} 

return rctbl; 


290 


300 


310 


320 


/ * Allocate memory for a new blob structure. Fit it into the linked 
list. Returns its tag. *J 
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340 


Tag NcwBlob() 

^ 330 

BLOBSTRU *ncwblob; 

ncwblob = (BLOBSTRU *) MALLOC( sizeof(BLOBSTRU)); 
if(ncwblob==NULL) { 

Fatal Error Message ("Out of Memory."): 

} 

BlobTag++; 

if(BlobTag<0){ 

Fatal_Error_Mcssagc ( " This is a critical error. You have wrapped around on the 
blob tags."); 
cxit(l): 

} 

ncwblob— >tag = BlobTag; 

ncwblob— > size = ncwblob- >csum = ncwblob- >rsum = ncwblob- >totalbright = 0; 
ncwblob— >totalbrightsq = (DoWa) 0: 
ncwblob->numwraps = 0; 
ncwblob— >prcvious = NULL; 
ncwblob- >ncxt = FirstBlob; 
ncwblob— >activc = — 1; 

if(FirstBlob!=NULL)FirstBlob— >prcvious = ncwblob; 

FirstBlob = ncwblob; 350 

return(BlobTag); 

} 

^define SamcSign(a.b) (((a > 0) && (b > 0)) || ((a < 0) && (b < 0))) 

/ *Set NegThreshold = - PIXEL_MAX to get only positive pixels */ 
j * Pot tow rownum, This voutinc checks the bright pixels to sec which blob they 
belong to*/ 

void BlobsInOncRow( int SubtractTypc, int rownum. int xs, int xc, int resolution, 
ImagcLinc one, ImagcLinc two, ImagcLinc three, DlmagcLinc neighbors, DPixcl 
NegThreshold. DPixcl PosThrcshold) 

{ 

int c; 

DPixcl upper, left; 

DPixcl temp; 
int YcsItlsBright; 

DPixcl pixmag; 

for(c=xs;c<xc;c=c+rcsolution) { 
j *If pixel is bright consider it or else set it 0. */ 

YcsItlsBright = 0; 
pixmag = 0; 

switch (SubtractTypc) { 
case NoSubtract: 
pixmag = onc[c]; 

if(IsBright(pixmag, NegThreshold, PosThrcshold)) YcsItlsBright = 1; 

break: 
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case SinglcSubtract: 

pixmag = (DPixcl) ( (DPixcl)onc(c] - (DPixcl)two(c] ); 
if(IsBright(pixmag, NcgThrcshold, PosThrcshold)) YcsItlsBright = 1; 
break: 

case DoublcSubtract: 380 

pixmag = (DPixcl) ( (DPixcl)onc[c] - (DPixcl)two(c] ); 
temp = (DPixcl) ( (DPixcl)thrcc[c] - (DPixcl)two(c] ); 

if( (IsBright (pixmag, NcgThrcshold, PosThrcshold)) && (IsBright(tcmp, NcgThrcshold, 
PosThrcshold)) && (SamcSign(pixmag,tcmp)) )YcsItIsBright = 1; 
pixmag = (pixmag + tcmp)/2: 

} 

if(YcsItIsBright){ 

uppcr=UppcrNcighbor(ncighbors,c): 
lcft=LcftNcighbor(ncighbors,c,xs, resolution): 

if(!uppcr && !lcft){ 390 

PutItInBlob(&ncighbors[c],rownum,c, pixmag, NcwBlob()); 

else { 

PutItInBlob(&ncighbors[c], rownum,c, pixmag, max(lcft, upper)); 
if( (lcft!=uppcr) (min(lcft, upper)) )JoinBlobs(ncighbors, upper, left); 

} 

else { 

BackGround. sizc+ + ; 

BackGround.totalbrightsq = BackGround. totalbrightsq -+■ (DoWa) ( pixmag* pixmag) : 
if(BackGround.totalbrightsq > BIGINT){ 

BackGround. numwraps+-f; 

BackGround.totalbrightsq = BackGround.totalbrightsq - BIGINT; 

BackGround. totalbright = BackGround.totalbright + pixmag; 
ncighbors[c]=0: 

} 

} 

} 

410 

/ *FindBlobPointer looks for a particular blob tag and returns a 
pointer to the tagged blob. NULL is a blob with tag is not found. The 
BLOBSTRU is a linked list of blobs and tag is basically a long int that 
identifies the blob */ 

BLOBSTRU *FindBlobPointcr(Tag tag) 

{ 

BLOBSTRU *blob; 

/ *FirstBlob is global to this file */ 
blob = FirstBlob; 

/* Until you reach the last blob ask are you it?*/ 42 o 

while(blob!=NULL) 

{ 
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if(blob->tag==tag) return(blob); 
blob = blob— >ncxt: 

} 

f* If did not find it, return NULL */ 
return( (BLOBSTRU *)NULL); 

} 

/ *JoinBloba join two blobs together then kill the child*/ 430 

void JoinBlobs(DImagcLinc row, Tag parcntnum, Tag childnum) 

{ 

int i; 

BLOBSTRU *parcnt, *child; 

parent = FindBlobPointcr(parcntnum); 

child = FindBlobPointcr (childnum); 

if((parcnt==NULL) || (child==NULL))Fatal_Error_Mcssagc("Either parent 
child not found."); 

parent— >sizc += child— >sizc; 

parent— >rsum += child— >rsum; 440 

parent— >csum += child— >csum; 
parent— >totalbright += child— >totalbright; 
parent— >totalbrightsq += child— >totalbrightsq; 
if(parcnt— >totalbrightsq > BIGINT){ 
parent— >numwraps++; 

parent— >totalbrightsq = parent— >totalbrightsq — BIGINT: 

} 

parent— >num wraps += child— >numwraps; 
parent— > active = — 1; 

KillBlob(child); 450 

for(i=0:i<IMAGEWIDTH:i++) if(row[i]==childnum)row[i]=parcntnum: 

} 

/ *Join a blob to the background blob T then kill the blob.*/ 
void DumpBlobIntoBackgroundThcnKill(BLOBSTRU *blob) 

{ 

BackGround.sizc += blob— >sizc; 

BackGround.totalbright H-= blob— >totalbright; 

BackGround.totalbrightsq +== blob— >totalbrightsq; 

if(BackGround.totalbrightsq > BIGINT){ 460 

BackGround.numwraps++; 

BackGround.totalbrightsq = BackGround.totalbrightsq — BIGINT: 

} 

BackGround.numwraps += blob— >numwraps; 

KillBlob(blob): 

} 


/ *Every pixel that passes the threshold test is added to a blob. 
The routine receives a pointer to the pixel (it will be changed ), the 
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■ ,/>. mw column <y, t) coordinates on the screen, its intensity 

T^V) Z^Znc (rather the number, o, the Hot, the pud belongs 

‘° V L PutItInBlob(DPixcl -pixel, mt row, int column, DPixcl gray, Tag tag) 

* BLOBSTRU *blob; 

/* Find the pointer to the blob named tag / 
iff (blob = FindBlobP obiter (tag) ) ==NULL) | ^ 

Fatal_Error_Mcssagc(" Invalid blob tag. ); 

/ * Increase the blob’s area, column sum, row sum, total 

> ln , . . . hr i n u tn rss sauared. Of these, really only the 

brightness and total brightness squarea j 

Z^^ZZt^nese L not cribicd 

blob->sizc++; 

blob— >csum += column; 

blob->rsum += row: 

^tZTZTonlaZhlobs, the total br&tncss scared 

if(blob->totalbrightsq > BIGINT){ 

blob— >numwraps++; mriNT- 

blob— >totalbrightsq = blob->totalbnghtsq - BIGINT, 

} 
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Since we just added a 


000 


Suppose 


/* Blobs are active when they are growing, 
pixel to this blob it is active */ 
blob -> active = -1; 

I* We label this pixel as belonging to the blob named tag. 

5, it will nave indicating 

test. For every pud that did pass, them » ( J -c „ „ m 

which blob that pad belonged to. As w P 

nasses the threshold test we compare it to the number in line o j 
IZTinUne 5 is tag, then the pud in 6 is a member of blob tag. / 

*pixcl = tag; 

/ *DumpSmaIlInactiveIntoBackgroundThcnKill This walks the blob linkage and Ml, 

all inactive blobs that are too small / 

void DumpSmalllnactBackKilHBsizc smallsizc) 

{ 
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} 


BLOBSTRU *blob, *tcmp; 
blob = FirstBlob: 
while(blob!=NULL){ 

if(blob— >activc)blob=blob— >ncxt; 
el8e{ 

if(blob — >sizc > =smallsizc)blob=blob— >ncxt; 
else { 
tcmp=blob; 
blob=blob— >ncxt; 

DumpBloblntoBackgroundThcnKill(tcmp); 

} 

} 

} 


520 
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/ *Join blobs that are too small or too big to the background blob, then 
kill the blob. V 

void DumpSmallBigInactBackKill(Bsizc smallsizc. Bsizc largcsizc) 

{ 

BLOBSTRU *blob, *tcmp; 
blob = FirstBlob; 
while(blob!=NULL){ 

if( blob — > act ivc) blob =b lob— >ncxt ; 

else{ wo 

if((blob->sizc <= largcsizc) (blob— >sizc>=smallsizc) ) blob=blob->ncxt; 
else { 

tcmp=blob; 
blob=blob— >ncxt; 

DumpBloblntoBackgroundThcnKill(tcmp); 

} 

} 

} 


} 

/ *MakeAllBlobsInActive This walks the blob linkage and makes all of 
them inactive, this means they have finished growing*/ 
void MakcAllBlobsInActivcQ 

{ 

BLOBSTRU *blob; 
blob = FirstBlob; 
while(blob!=NULL){ 
blob— >activc=0; 
blob=blob— >ncxt: 

} 

} 

f*To Kill a blob means to remove it from the linked list and free its memory */ 


550 


560 
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void KillBlob(BLOBSTRU *blob) 

{ 

if(blob— >prcvious==NULL) { 

FirstBlob = blob— >ncxt; 

if(FirstBlob!=NULL)FirstBlob— >prcvious=NULL: 

} 

else { 570 

blob— >prcvious— >ncxt = blob— >ncxt; 

if(blob— >ncxt!=NULL)blob— >ncxt— >prcvious = blob— >prcvious: 

} 

FREE(blob): 

} 
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Chapter 4 
dip.c, dip.h 


Documentation Date: 6/27/94 


4.1 Sequencing and Thresholds 

The routines in this file perform image sequencing and determine thresholds. 

New Data Types: 

None. 

Definitions: 

• YAXISMIN - the minimum value for the v axis of histograms. 

• YAXISMAX - the maximum value for the y axis of histograms. 

• NOVALLEY - (-1) return value if the valley finding algorithm fails. 

• NOPEAK - (-2) return value if the peak finding algorithm fails. 

4.1.1 Header File Listing: 

#ifndef DIP.H 
^define DIP.H 

j*We subtract and do a brightness histogram of images i+2 — i for 
i from 0 to 3. 

We process every resolution rows and columns of the image. 

If ShowHistOO then we plot the histogram with a yaxis from 
YAXISMIN to YAXISMAX. 

Whichever set has the largest positive histogram is the all on 
minus all off frame. 

To determine the threshold we find the left and right valleys of io 

the positive histogram then set the threshold to perccntvalley between 
them. EG. if perccntvalley = 0 threshold = left edge, if 100 then its 
the right edge. 

Numinslope is the number of data points used in the best fit slope 
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calculation. 

Thresh is the threshold we compute. 

It returns the image # of the first falling edge EG. suppose the 
images are off on on off off on on. Then it returns 2. 

V 

int FindFirstFallingAndThrcsh( int resolution, int numinslopc, 
DPixcl *thrcsh, int ShowHist, int pcrccntvallcy); 

int FindThrcshold( int OnFramc, int DimFramc, int resolution, 
DPixcl *thrcsh, int ShowHist, int pcrccntvallcy): 

#define YAXISMIN 0 
#define YAXISMAX 100 
#define NO VALLEY -1 
#deflne NOPEAK -2 
#endif 


20 

int numinslopc, 
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x x 



4.2 Function: FindFirstFallingAndThresh 

Documentation Date: 6/24/94 
Prototypes: 

int FindFirstFallingAndThresh (int resolution, int numinslope, DPixel 
♦thresh, int ShowHist, int percentvalley) ; 

Source File: dip.c 

Type of Function: User Callable 

Header Files Used in dip.c: <float.h> <stdio.h> <string.h> ’’datatype. h” 
’’plot.h” ”dip.h” ’’target. h” 

Description: 

This routine finds the first image with a falling edge of the LED, For example, 
suppose image-LEDstate is: 0-LEDon, 1-LEDon. 2-LEDoff, 3-LEDoff, ... Then 
this would return 1. It also determines a threshold for the blob analysis. The 
threshold is returned through the parameters. 

4.2.1 Theory 

The program grabs eight frames. Two consecutive frames have the LED on. 

The first of the two has the LED on brighter than the second (a hardware 
problem). After two on frames, there are two consecutive off frames. The 
second off however has the LED on dimly (hardware problems). Suppose 
frames have been grabbed as figure 4.1 shows. The figure shows frames 3 and 
4 as a consecutive set of On frames. Frame 0, is the first falling frame. 

The algorithm computes a histogram for four images: Image 2 - Image 
0, Image 3 - Image 1, Image 4 - Image 2, and Image 5 - Image 3. Tw'o of 
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these are off minus on frames and two are on minus off. Figure 4.2 shows 
a typical histogram for an on-off and off-on image. When we compute these 
histograms, we use a subset of the data. We process only every “resolution'" 
line and column (user selectable). 

After the histograms are computed, we determine the right edge of the 
center hump of the histogram. See figure 4.3. The parameter numinslope is 
used in the algorithm for finding the edge. After finding the edge, we compute 
the area under the histogram from the edge to intensity of 255. The two 
images that correspond to LEDon minus LED off have a signific an tly larger 
area. We select the second in sequence of these two 1 as the first falling. The 
only detail is that the frames could be 0, 3 (see figure 4.1) where 0 is the 
second in the sequence. The first in the sequence of two on minus off frames 
is used to determine the threshold. 

To determine the threshold, we compute the left edge of the target hump 
(if it exists). See figure 4.4. If there is no left edge, or if it is lower than the 
right edge, then threshold is equal to the right edge. Otherwise, threshold is 
a percentage of the distance between the edges. Zero percent is the right edge 
of the background, one hundred percent is the left edge of the target. 


X The second in sequence does not necessarily have the smaller of the two areas because 
area is very sensitive to the edge finder. The on minus off frames however have such a larger 
positive area, they have always been correctly identified (as far as we know). 
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Figure 4.3: The Rigl 
Histogram. 
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4.3 Function: SlopeOfN 

Documentation Date: 6/27/94 
Prototypes: 

float SlopeOfN (int numinslope. Histogram hist, long xs, long x, long 
xy, long y) 

Source File: dip.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in dip.c: <float.h> <stdio.h> <string.h> ’’datatype. h” 

’’plot.h” ’’dip.h” ’’target. h” 

Description: 

This routine computes the best fit slope to N data. 


4.3.1 Theory 

Think of a histogram as an x,y plot where x is the intensity and y is the 
number of pixels at that intensity. This routine fits a line to N consecutive 
data points and returns the slope of the line. 

The error between the best fit line and the data is: 

E = Y, N + j ( mxi + b- yif 

>=j 

To minimize E we determine the critical points of the error:' 

53 iV + 7 2 ( mx > +b-yi) = 0 

i=j 


53 jV + / 2 (m-Xi + b- yi ) £, = 0 

i=j 

These equations have the following solution for slope m: 


x ggv (xiVi) - £f:v (»■) .V + rn 

X E,.y X + j (xf) - z„, x + in E, =J N + jXi 


(4.1) 


This routine implements equation 4.1 
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4.4 Function: XOfValley 

Documentation Date: 6/24/94 
Prototypes: 

int XOfValleyCHistogram hist, int numinslope, int start, int end); 
Source File: dip.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in dip.c: <float.h> <stdio.h> <string.h> ” datatype h” 

’’plot.h” ”dip.h” ” target. h” 

Description: 

This routine computes the array offset (the x or intensity value if you think 
of a plot) of the right edge of a hump. It searches the histogram between 
start and end for the valley. It returns the valley offset value when there is 

no error. It returns NOPEAK and NOVALLEY (defined in dip.h) if an error 
does occur. 

4.4.1 Theory 

A valley is defined as the first location where the slope of a best fit line to 
part of the data changes from negative to non-negative. The region for finding 
the best fit slope is defined with “numinslope”. For example, if numinslope 
is 3 then “best fit" slopes are computed using points 0,1,2 then 1,2,3 then 
2,3,4 etc. until the slope is negative and becomes non-negative. Actually the 
routine first seeks the peak value between start and end, then seeks a negative 
slope, then seeks a non-negative slope. If the non-negative slope is found with 
data 2,3,4 a 2 is returned. 
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4.5 Function: Miscellaneous Support Rou- 
tines in Dip.c 

Documentation Date: 3/10/95 
Prototypes: 

void showhistogram(Histogram bigy[4], int which, int maxy, char *message, 
GraphData *graphdata, long xthresh) 

void MakeXNHist (Histogram from, Histogram to) 
long SumOfHist (Histogram hist, int starting) 
void RunningSum (long oldest, long newest, long *sum) 
void RunningSumsOverN (int numinslope, int start ingx. Histogram 
hist, long *xs , long *x, long *xy, long *y) 

void FirstSumsOverN (int numinslope, int startingx. Histogram hist, 
long *xs, long *x, long *xy, long *y) 

int IndexOf Largest (Histogram hist, int start, int end); 
int FindThreshold(int OnFrame, int DimFrame, int resolution, int 
numinslope, DPixel *thresh, int ShowHist, int percentvalley) ; 

Source File: dip.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in dip.c: <float.h> <stdio.h> <string.h> ” datatype. h” 

’’plot.h” ”dip.h” ’’target.h” 

Description: 

• showhistogram: displays a histogram on the computer monitor. 

• MakeXNHist: reverses the order of the histogram. This is done to sim- 
plify the process of finding the left edge of the target hump (see Find- 
FirstFallingAndThresh). After reversing the histogram we can find the 
right edge of the target hump instead of the left edge. 

• SumOfHist: computes the area under the histogram from starting to 
255. 

• RunningSum: computes a running sum. It is used to determine the best 
fit slope to the data. A running sum adds a new point and subtracts an 
old point. 

• RunningSumsOverN: computes the four sums needed to find best fit 
slopes, x, x squared, xy, and y where x is the intensity, and y is the # 
pixels with that intensity. 

• FirstSumsOverN: this routine gets the four sums over N started. 
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• IndexOfLargest: returns the index (histograms are stored as an array) 
of the maximum y value. It begins the search from the end back toward 
the staxt. 

• FindThreshold: This routine is nearly identical to FindFirstFallingAndThresh 
except it does not sequence the images. 
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4.5.1 Program Listing: 

# include < float.h> 

# include <stdio.h> 

#ifndef NeXT 

#include <graph.h> 

#endif 

#include <string.h> 

#include "datatype. h" 

#include "plot.h" 

#include "dip.h" 

# include "target. h" 

10 

j ****** 

Local functions 
*******/ 

long SumOfHist (Histogram hist, int starting): 

void RunningSum ( long oldest, long newest, long *sum): 

void RunningSumsOvcrN ( int numinslopc, int startingx. Histogram hist, long 
xs, long *x, long *xy, long *y); ' 6 

void FirstSumsOvcrN ( int numinslopc, int startingx. Histogram hist, long 
xs, long *x, long *xy, long *y); 

float SlopcOfN ( int numinslopc, Histogram hist, long xs, long x. long xv 
long y); 6 

int IndcxOfLargcst (Histogram hist, int start, int end): 
int IndcxOfFirstOncBclowlOO(Histogram hist, int start, int end): 
mt XOfVallcy(Histogram hist, int numinslopc. int starting, int end)- 
void MakcXNHist(Histogram from, Histogram to): 

void showhistogram(Histogram bigy[4], int which, int maxy, char ^message. 
GraphData *graphdata, long xthresh); 

Histogram hist [4]; 

Histogram histtemp; 

long xaxis[NUMBEROFPIXELBINS+5], yaxis[NUMBEROFPIXELBINS+ 5 ]: 

/*This routine will display a histogram on the computer monitor*/ 
void showhistogram(Histogram bigy[4], int which, int maxy. char 
message, GraphData *graphdata, long xthresh) 

int i,k; 
long temp; 
k = 0; 

/ * Histograms are positive and negative display only the positive part*/ 

for(i=NUMBEROFPIXELBINS/2;i<NUMBEROFPIXELBINS:i++){ 

temp = bigy[which][i]; ’ * 

/ If the data is too large set it equal to the max*/ 
if(tcmp < maxy)yaxis[k] = temp; 
else yaxis[k] = maxy; 
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#ifdef CHECKLENGTH 

#endif ^ U ^ BER ° FPIXELBINS "*"^ ))Fatal ^ rr ° r- ^ CSSa ^ C ^' '^^ eW 4t in ^owhistogram-); 
k++; 

j so 

#ifndef NeXT 

SctupGraph(graphdata); 

Plot(xaxis,yaxis,NUMBEROFPIXELBINS/2, LINES, PLOTJYELLOW); 

if(xthrcsh > 0)PlotVcrticalLine(xthresh, PLOT_DARK RED); 
gprintandwait (message) ; 

QuitPlot(); 

#endif 

} 


/ * This routine finds the first image with a falling edge of the LED, 

For example, suppose image- LED state is: 

0— LED on, 1-LEDon, 2-LEDoff, 3-LEDoff, ... 

Then this would return 1 */ 

int FindFirstFallingAndThrcsh( int resolution, int numinslopc. 

DPixcl *thrcsh, int ShowHist, int percent valley) 

char message [40]: 

GraphData graphdata; 
int imageframe; 
int first, second, i; 
long total[4], max, nextmax; 
int vallcy[4]; 

int maxindex, nextindex; 
int rctumvaluc, valleyvaluc; 
mt sccondstarting, sccondcnding, sccondvallcyr 
int tcmp,tcmpp; 

ROI roi; 

/ * A macro to say the entire image is of interest*/ 

WHOLE_IMAGE(roi); 90 

/* We mil process every resolution line and column, This reduces the 
amount of processing. We typically use resolution of 3 or 4. As the 
target gets further away, this value will have to decrease. */ 
roi. resolution = resolution; 
max = — 1; 

j * If we want to display graphs, get them ready */ 
if(ShowHist){ 

for(i= 0 ;i< 128 ;i++)xaxis[i]= 2 *i: 90 

#ifdef CHECKLENGTH 

if(i>(NUMBEROFPIXELBINS+5))Fata(_ErTor_Mcssagc("Blew it in f indf irstfallingandt 
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#endif 

graphdata.minx = 0; 
graphdata.maxx = 255; 
graphdata.miny = YAXISMIN; 
graphdata.maxy = ( long) YAXISMAX; 
graphdata.majxtic = 8; 
graphdata.majytic = 5; 
graphdata.minxtic = 4; 
graphdata.minytic = 5; 
graphdata.DcfaultFontAndColor = TRUE: 


no 


rjirsi we sequence the images. That is find out which are enframes an 
which are off. We do this by subtracting 2-0, 3-1, 1-2 5-3 Two nf 
these will be mostly negative results and two will be mostly positive. 

for (imageframe = 0;imagcframc < 4:imagcframc++){ 
tf(S A ho^S ^f am(toa * cfr “ me . i™gcfr*nc +2 , -1. histfimageframe], roi); 

#ifdtScTSCTH t0gr “ ° f ^ “ » 1 ««rama g c fr a m c + 2 .in 1 a g o fr a m o); 

Wlin^ W c n(m cssa g c) > =40,Fata,. ElI „ r .Mcs S a g c(..B^ lt 

showhistogram(hist, imageframe, 100 , message ,& g raphdata,0); 

/ ‘Find the approximate intensity „/ the right edge of the eenter hump »/ 

-1 ) Cy ma8C am ° “ xw ^y(Wst[imagcframc], numinslopc, 0, NUMBERaFPIXELBINS 

/•Find the area under the histogram from the right edge to 2S5*I 
if(vallcy[imagcframe] < O)total[imagcframc] = 0 - 7 

,e' 8 e ‘"“[toagefcunej = SumOfflist (hist[imageframe], valley[ima g efiame]), 

/ 'Two of the areas unit be significantly larger than the other two 
max = r Q PrCSCnt pr °P erl y sequenced images. Find the largest one.*/ 

maxindex = 0; 

for (imageframe = 0;imagcframc < 4;imagcframc++){ 
if(total[imagcframc] > max){ 
max = total [imageframe]: 
maxindex = imageframe; 

} 

/ * Now find the second largest */ 
nextmax = 0; 
nextindex = 0; 

for(imageframc=0;imagcframc < 4:imagcframc++){ 
if( (total [imageframe] > nextmax) && (imageframe != maxindex) ){ 
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140 
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next max — total[imagcframc]: 
nextindex = imageframe; 

} 

t0 ° har f Ware L f D P roblem > we want to base threshold on the 
fi f wo consecutive on frames, but we want to return the second on 
frame as the first falling. From above we have a very robust method of 

fi fJdlED Z f TT ** «*■* one „ the 

ZatLltZ 1 *" PmChed thn ^ h ’- * could 

ZdlZTte TT r ° e ° Sn ‘ Ze Wkich corruopond, to the 

Znd Th f 7 me ’ f.° Ur T “ a ‘ 9 ° H,hm " *> oalley we 

found. Therefore, what we do is say we want the image that occur, , fir.t 
m the sequence. It turns out that the two choices maxindex and 
nextindex are always sequential or else they an> 0 and 3. So first we 
put them m numerical order. *f J 

if(ncxt index < maxindex) { 
first = nextindex; 
second = maxindex: 

} 

else { 

first = maxindex; 
second = nextindex: 

} 
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/ * Now if the first happens to be 0 then the other is 3 so 3 is 
actually the good LED on frame and 0 is the first fallinq*/ 
if( (first — — 0) (second == 3) ){ / 

rctumvaluc = first; 
vallcyvaluc = second: 

} 

else { 

rctumvaluc = second; 
vallcyvaluc = first: 

} 


170 


the taZ°t W r. l0 ° k /° r 'f ed9C ° f thC hiSt ° 9ram hum P « 

the target, if it exists, to do this we simply change the +- s iqn of 

the intensity of the thresholding histogram (the vallcyvaluc 

histogram) then use the same algorithm as finding the right edge of 
histogram s center hump */ y y J 

MakcXNHist (hist [vallcyvaluc] ,histtcmp) ; 

of ,CT th ° Tf r a P m ° <besinnin !l °f thc errny) to the edge 
of the hump already found, then find an edge called eecondvallevV 
sccondstarting = 0: y ' 

sccondcnding = NUMBEROFPIXELBINS - valley [vallcyvaluc]; 


180 
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sccondvallcy = XOfVallcy(histtcmp, numinslopc. sccondstarting, sccondcnding): 

/ *If a second valley is not found, base threshold on the edge of 190 

the hump. If one is found, and it is to the right of the first one, set 
threshold at a percentage between the two edges*/ 

if(sccondvallcy < 0) ’"thresh = (vallcy[vallcyvaluc] - 128) * 2; 
else { 

sccondvallcy = NUMBEROFPIXELBINS - sccondvallcy; 
if (sccondvallcy < vallcy[vallcyvaluc] ) *thrcsh = (vallcyfvallcyvalucl 
- 128) * 2; 

else *thrcsh = ((( 100- percent valley )*vallcy[vallcyvaluc]+pcrccnt valley* sccondvallcy )/100 
- 128) * 2; 

} 200 

r 

*thresh = (valley/valleyvaluej — 128) * 2; 

7 

temp = ( valley [vallcyvaluc] —128) *2; 
tempp = (sccondvallcy— 128) *2; 

r 

printf(” first second valley are %d and %d\n” , temp, tempp); 
printandwaitfi’hit a key”); 

7 

if(ShowHist){ 210 

sprintf(mcssagc,"The line is the threshold, HitKey"): 
showhistogram(hist,vallcyvaluc,100.mcssagc,&:graphdata,( long) *thrcsh); 

return rctumvaluc: 

} 

int FindThrcshold( int OnFYamc, int DimFramc, int resolution, int numinslopc, 

DPixcl ¥ thrcsh, int ShowHist, int percent valley) 

{ 

char mcssagc[40]; 220 

GraphData graphdata; 
int i; 

long total[4], max; 
int vallcy[4]; 
int rctumvaluc; 

int sccondstarting, sccondcnding, sccondvallcy; 
int temp, tempp; 

ROI roi: 

WHOLE JMAGE(roi); 230 

roi. resolution = resolution; 
max = —1: 
if(ShowHist){ 

for (i=0:i< 128;iH — |-)xaxis[i]=2*i; 
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#ifdef CHECKLENGTH 

if(i>(NUMBEROFPIXELBINS + 5))Fatal Error , Mcssagc("Blew it in findf irstfallingandthr* 


graphdata.minx = 0; 
graphdata.maxx = 255; 
graphdata.miny = YAXISMIN; 
graphdata.maxy = ( long) YAXISMAX; 
graphdata.majxtic = 8: 
graphdata.majytic = 5; 
graphdata.minxtic = 4; 
graphdata.minytic = 5; 
graphdata.DcfaultFontAndColor = TRUE- 
} 


SubAndHistogram(OnFramc, DimFramc, -1. hist[0], roi): 

// vallcy[0] = XOfVallcy (hist [0] , numinslopc, 0, NUMBEROFPIXELBINS -1 )ko 
/ / Search starts at gray level 2 since accumulation zeros gray level 1 

vallcy[0] = XOfVallcy(hist[0], numinslopc. 2, NUMBEROFPIXELBINS -1 V 
if(vallcy[0] < 0)total[0] = 0; ' 

else total[0] = SumOfHist (hist[0], vallcy(0]); 

MakcXNHist(hist[0].histtcmp); 
sccondstarting = 0; 

sccondcnding = NUMBEROFPIXELBINS - valley [0]: 

sccondvaHey = XOfVallcy(histtcmp. numinslopc, sccondstarting. sccondcnding)- 
if( second valley < 0){ 

if(DimFramc > -1) *thrcsh = (vallcy[0] - 128) * 2: 
else *thrcsh = valley [0]: 

else { 

sccondvallcy = NUMBEROFPIXELBINS - sccondvallcy: 
if(sccondvallcy < valley [0] ){ 

if(DimFramc > —1) ’’'thresh = ( valley [0J — 128) * 2: 
else *thrcsh = vallcy[0]; 

else{ 

128)*“™ > _1) ¥thrCSh = (((100_pcrccntvalle y) li ‘ vall cy[0]+pcrccntvalky*sccondvallcy)/l 

^else nhresh = ((100-pcrccntvallcy)*vallcy[0]+perccntvallcy*secondvallcy)/100: 

} 

if(ShowHist){ 
temp = valley [0]; 

if(DimFramc > -1) temp = (tcmp-128)*2; 
tempp = sccondvallcy; 

if( DimFramc > -1) tempp = (tempp- 128)*2: 

sprintf(mcssagc."The line is the threshold, HitKey"): 2 so 

showhistogram(hist, 0,100, message, &graphdata.( long) *thrcsh): 
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} 

return rctumvaluc: 

} 

/ *Thi$ routine reverses the order of the histogram . This is done to 
simplify the process of finding the left edge of the target hump . After 
reversing the histogram we can find the right edge of the target hump 
instead of the left edge . */ 

void MakcXNHist (Histogram from, Histogram to) 2 eo 

{ 

int i; 

for(i=0;i<NUMBEROFPIXELBINS;i++){ 
tofi] = from[NUMBEROFPIXELBINS-l-i]: 

} 

} 

/ *This routine computes the area under the histogram from starting to 

255*/ 

long SumOfHist (Histogram hist, int starting) 300 

{ 

long sum; 
int i; 

sum = 0; 

for(i=starting;i<NUMBEROFPIXELBINS;i++){ 
sum = sum + hist [i]; 

} 

return sum: 

} 

310 

f *This routine computes a running sum. It is used to determine the best 
fit slope to the data. */ 

void RunningSum ( long oldest, long newest, long *sum) 

{ 

*sum = *sum — oldest; 

*sum = *sum -t- newest: 

} 

j*To compute the best fit slope we need four sums, x, x squarcd t xy, and 
y where x is the intensity , and y is the # pixels with that intensity */ 320 

void RunningSumsOvcrN ( int numinslopc, int startingx. Histogram hist, long *xs 
long *x, long ^xy, long *y) 

{ 

/ *Sum of hist[startingxj -h histfstartingx + 1] + ... -t hist[startingx + numinslopc 

- 1 ] v 

f* startingx > 0 and startingx < NUMBEROFPIXELBINS — numinslopc */ 
long oxs, ox, oxy, oy; 
long nxs, nx, nxy, ny; 
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ox = startingx — 1; 

oy = hist [ox]; 

nx = ox + numinslopc; 

ny = hist[nx]; 

oxs = ox * ox: 

nxs = nx * nx; 

oxy = ox * oy; 

nxy = nx * ny; 

RunningSum(ox,nx,x); 

RunningSum(oxs,nxs,xs) ; 

RunningSum (oxy, nxy, xy ) ; 

RunningSum ( oy,ny.y) : 

} 


330 


340 


/ *Once we are rolling we use RunningSumsOverN. It subract one number 
and adds one. To get started however we have to use this routine*/ 
void FirstSumsOvcrN ( int numinslopc, int startingx, Histogram hist, long *xs, 
long *x, long *xy, long *y) 

{ 

int i; 

*x = *xs = *y = *xy = 0; 

for(i=startingx;i<startingx + numinslopc;i++){ 350 

*x = (*x) + i; 

*xs = (*xs) + i * i; 

*y = (*y) + histfi]; 

*xy = (*xy) + hist[i] * i: 

} 

} 

/ *This routine computes the best fit slope to N data T / 

float SlopcOfN ( int numinslopc, Histogram hist, long xs, long x. long xy, long 

y) ’ 360 

{ 

long slope, denom; 
denom = xs * numinslopc — x * x; 
slope = xy * numinslopc — x * y; 
if (denom == 0){ 

if(slopc < 0) return (- FLT.MAX); 
return FLT MAX: 

} 

return ( ( ( float) slope) / ( ( float) denom ) ); 

} 370 

/ *This routine returns the index (histograms are stored as an array) of 
the maximum y value. It begins the search from the end back toward the 
start*/ 

int IndcxOfLargcst (Histogram hist, int start, int end) 
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{ 

int i, bigindcx; 
long max; 

bigindcx = NUMBEROFPIXELBINS-1; 

max = hist [NUMB EROFPIXELBINS— 1 ] ; 38 

bigindcx = end: 
max = hist [bigindcx]; 

for(i=(cnd— l);i> (start— l);i — ){ 
if ( hist [i] > max){ 
bigindcx = i; 
max = hist[i] : 

} 

} 

return bigindcx: 39( 

} 

int IndcxOfFirstOncBclowlOO(Histogram hist, int start, int end) 

{ 

int i, bigindcx; 
bigindcx = start: 
for( i=start:i<cnd;i-f+){ 

if(hist[i] > 100) bigindcx = i: 

} 

return bigindcx: 40 o 

} 

f*Thi$ routine computes the intensity ( the x value if you think of 
a plot) where a hump ends. It searches the histogram between start and 
end f of the valley location. It returns the x value when there is no 
error. It returns NOPEAK (—2) if it can not find a hump to start with. 

It returns NO VALLEY (—1) if it cannot find a valley after finding the 
hump. Note that start and end are array values not the actual 
intensity. */ 

int XOfVallcy( Histogram hist, int numinslopc, int start, int end) 4 io 

{ 

int peak, valley; 
long xs, x, xy, y; 
float slope; 

j*Find the largest value between start and end*/ 
peak = IndcxOfLargcst(hist, start, end); 

f*We fit numinslopc data points to a line. Once we get rolling it 
works different than the initial calculation. *j 
FirstSumsOvcrN (numinslopc, peak, hist, &xs, &x, &xy, &y); 
slope = SlopcOfN (numinslopc, hist, xs, x, xy, y): 


420 
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/ *Now we’re cookin’. Move right until we hit the end of the histogram. 
Each time drop the left most data from our calculation and include a new 
one on the right. Compute the best fit slope over numinslope data 
points. Look for a negative slope to indicate finding the downward 
surface of the peak. I am not sure why this is needed actually. */ 
while( (slope >= 0) SeSe (peak < cnd+1 -numinslope) ){ 
pcak++; 

RunningSumsOvcrN (numinslope, peak, hist, &xs, Sex, Sexy. Se y): 
slope = SlopcOfN (numinslope. hist, xs, x. xy, y): 

} 

if(slopc >= 0) return NOPEAK; 

/ *Ok so we have the true peak so continue finding slopes looking for 
it to become positive. */ 

for(vallcy= pcak+l;vallcy<cnd+l— numinslopc:vallcy++ ){ 
RunningSumsOvcrN (numinslope, valley, hist, &xs, &x. &xy. Sey): 
slope = SlopcOfN (numinslope, hist, xs, x, xy, y); 
if(slopc >= 0) return valley: 

} 

return NOVALLEY: 

} 
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Chapter 5 

geometry.c, geometry.h 


Documentation Date: 3/12/95 

5.1 Sort out the blob Information. 

The one user callable routine in this file computes which blob belongs to the 
top, bottom, etc. 

New Data Types: 

Definitions: 

• NOTENOUGHBLOBS = -1 (global) Error return. 

• N OTARGETFOL ND = -2 (global) Error return. 

5.1.1 Header File Listing: 

#ifndef GEOMETRY.H 
#define GEOMETRY.H 

/ * This routine takes image blobs and fits them to a pattern. 

To reduce needless searching if a blob is not within tolerance *blob radius 
of where it needs to be then we skip it. 

It returns Allstats loaded, a zero return is success, other errors are 
defined */ 

int^rgetCosys (Image ¥ imagc, AllStats *allstats. double tolerance, int NumOfLcdsToFind)- 
#define NOTENOUGHBLOBS -1 
# define NOTARGETFOUND -2 

#endif 0 
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Figure 5.1: A Sample of the Target Showing the Definition of Height, Width 
Top and Left. 


5.2 Function: Target Cosys 

Documentation Date: 3/12/95 
Prototypes: 

mt TargetCosys (Image *image, AllStats *allstats, double tolerance 
int NumOfLedsToFind) ; 

Source File: geometry. c 

Type of Function: Routine TargetCosys is user callable all, others are inter- 
nal. 

Header Files Used in geometry.c: <math.h> <stddef.h> <stdlib h> 

datatype. h” ” geometry, h” ” memory.h ” 

Description: 

There are several routines in this file. The only user callable one is Target- 
Cosys. 

TargetCosys sorts the blobs in the image and determines which are top, 
bottom, etc. It is basically a tree search, tolerance is used to prune limbs 
from the tree. It returns either SUCCESS, NOTARGETFOUND, or NOTE- 
PsOLGHBLOBS. The algorithm allows one retro to be missing provided the 
expected location of the blob on the mirror is also missing. 

Figure 5.1 shows what a target is suppose to look like. Figure 5.2 shows 
the definition of the mirror and screen coordinate systems. Figure 5.3 shows 
the definition of error and the expected locations. 

It tries all combinations of retros until it finds the one that produces the 
least error in what the target should look like. The target is expected to have 
five retros on the left right, top and bottom center edges. The fifth retro is in 




5.2. FUNCTION: TARGETCOSYS 


115 



Figure 5.2: Coordinate Systems. 
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the upper left hand corner. Any image with less than 4 blobs is not a target 
because there are five retros and only one can be missing. 

The routine requires the blobs to be sorted from largest to smallest. If they 
are not, it fails. J 

The routine picks two blobs at random and calls them the left and right, 
then converts blob coordinates into mirror coordinates. Mirror center is the 
average of the left and right. -fx points from left to right 

Now it searches for a top or bottom blob. Top must have a small x mirror 
coordinate. After finding top and bottom blobs it swaps left/right top/bottom 
if necessary to make the left/right larger than top/bottom. 

T , he *f D b [ 0b3 u tbose that lie 011 the mirror. Basically the routine 
searches through the blobs until it finds one that has not been assigned to 

something else (like the corner or top retro blob). For each unassigned blob, 
it checks to see if it lies on the mirror. 


5-2.1 Program Listing: 

# include <math.h> 

# include <stddcf.h> 

#include <stdlib.h> 

#include "datatype. h" 
#include "geometry. h" 
#include "memory. h" 


/ * This routine takes image blobs and fits them to a pattern. 

To reduce needless searching if a blob is not within tolerance *b(ob_radius 10 
of where it needs to be then we skip it. 

It returns Allstats loaded, a zero return is success, other errors are 
defined */ 


d V ::^ 0nVC " C °°^ inatCS( J dOUb,ebX ’ doubleb * double ox. double oy. double 
double vy, double px, double py, double *nx. double *ny)- 

double mag( double x, double y); 

int PickTwoAtRandom( int *lcft, int *right. int max)- 

MM«"EDsfr (intlCft ’ in ‘ right ' int, ° P ' intb ° UOm - 

doubfe, “' douWcxy - 

int Bloh2TsR‘ tk’ m mt t0p>! int bottom ^ in t comer, int numofblobs): 

mt Blob2IsBiggcrThanl (Image ¥ imagc. int one, int two)- ' 

void FindSomcLcds( int left, int right, int top, int bottom, int comer int 
numofblobs, int numtofind, int lcdsfound[MAX LEDS])- 

int NoxtBlobOnMirrorf int start, int left, int right, int top. int bottom, int 
comer, int numofblobs): 

int BlobIsOnMirror( int blobnumbcr): 
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30 

static int lastlcft, lastright; 
double bcstcrror; 

int bcstlcft, bcstright, bcsttop, bcstbottom, bcstcomcr, bcstlcd[MAX_LEDS], 
bcstfound; 

double *mirrorx, *miirory;/ *Blob x and y coordinates relative to the mirror* j 
double *ccntx, *ccnty \j *Temporary Blob x and y coordinates*/ 
double *radiusXtolcrancc :/*Blob radii times the tolerance*/ 
double *sizcs, *radius; 

double leftmostx, rightmostx, topmosty, bottommosty: 

40 

int TargctCosys( Image *imagc, AllStats *allstats, double tolerance, int NumOfLcdsToFind) 

double leftx, rightx, lefty, righty; 
double originx, originy, dist; 

double xx, xy;/ *The x axis of the mirror , from left to right*/ 
double yx, yy :/*The y axis of the mirror 9 90 degrees CCW from x axis*/ 
double nx, ny; 

double toperror, bottomerror, possiblccomcrx, possiblccomcry; 

int left, right, top, bottom, lcd[MAX_LEDS], edge, nextedge, comer, i, j; &o 
int numofblobs; 
int nccdtoswitch; 

allstats- >id.NormalNumOfLcds = NumOfLcdsToFind; 
lastlcft = 0; / *Used in the permutations.*/ 
lastright = 0; 

numofblobs = image — >num_of_blobs_found; 

/*Make sure the blobs are sorted from largest to smallest. This is needed for 
the find leds.*/ 60 

for(i=0;i<numofblobs;i++) 

for(j=i4-l;j<numofblobs;j-h+) if(Blob2IsBiggcrThanl(imagc,i,j))Fatal_Error_Mcssagc( M Sort 
blobs large to small before geometry."); 

bcstcrror = 10000.; bcstlcft = bestright = bcsttop = bcstbottom = bcstcomcr 
= bcstfound = 0; 

ccntx = ( double *) MALLOC(numofblobs * sizeof( double)); 

ccnty = ( double *) M ALLOC (numofblobs * sizeof( double)); 

mirrorx = ( double *) MALLOC(numofblobs * sizeof( double)); 70 

mirrory = ( double *) M ALLOC (numofblobs * sizeof( double)); 

sizes = ( double *) M ALLOC (numofblobs * sizeof( double)); 

radius = ( double *) M ALLOC (numofblobs * sizeof( double)): 

radiusXtolcrancc = ( double *) MALLOC(numofblobs * sizeof( double)); 

if( 

(ccntx == NULL) || 
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(ccnty == NULL) || 

(radiusXtolcrancc == NULL) || 

(sizes == NULL) || 

(radius == NULL) || 

(mirrory == NULL) || 

(mirrorx == NULL) ) 

Fatal_Error_Mcssagc("Not enough memory in geometry. c M ): 

for(i=0;i<numofblobs;H-+){ 
radiusXtolcranccfi] = tolerance * image- >blobs[i].radius: 
sizesfi] = image -> blobs [i], size; 
radius [i] = imagc->blobs[i].radius; 
ccnty [i] = image— >blobs [i] . ccnty / 1.266; 
ccntxfi] = image— >blobs[i].ccntx; 


while(PickTwoAtRandom(<fclcft, bright, numofblobs-im 
leftx = ccntx[lcft] ; 
lefty = ccnty[lcft]; 
rightx = ccntx[right]; 
righty = ccnty [right]; 
xx = rightx - leftx; 
xy = righty - lefty: 
dist = mag(xx.xy); 
originx = (leftx + rightx)/2.; 
originy = (lefty + righty)/2.; 


/ Convert all blob coordinates into mirror coordinates. */ 
if(dist>0){ ' 

xx = xx / dist; xy = xy / dist: 

yx = -xy; yy = xx; 

/ * The left and right are special. */ 
mirrorxflcft] = -dist/2.; mirroryflcft] = 0.: 
mirrorxfright] = dist/2.; mirroryfright] = 0.; 

/ *For all others. */ 
for(i=0;i<numofblobs;i++){ 
if ( (i != right) && (i != left) ){ 

&nx &ny)° nVCrtC00rdinatCSfCCntX ^' C ° nty ^ ! ori 8 inx - ori giny. xx. xy, yx, yy. 
mirrorx [i] — nx; mirroryfi] = ny: 

}/ *All blobs converted, */ 

leftmostx = mirrorx[lcft] - image- >blobs[lcft]. radius; 
rightmostx = mirrorx [right] + image- >blobs[right].radius: 


no 
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j*For all blobs that arc not the left and right.*/ 

for(cdgc=0;edgc<numofblobs;cdgc++){ if( (edge != left) kk (edge != right) 
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){ 

/ *If this blob can be a top or a bottom. */ 
toperror = fabs(mirrorx[cdgc]); 
if( toperror < radiusXtolcranccfcdgc] ){ 

/* Found an edge*/ 

if( mirrorx [right] < fabs(mirrory[cdgc]) )nccdtoswitch = 1: 
else nccdtoswitch = 0; no 

/ *From next blob to the end. */ 

for(ncxtcdgc=cdgc+l;ncxtcdgc<numofblobs;ncxtcdgc++){ if( (nextedge != left) 

&& (nextedge != right) ){ 

/ *If this blob is an opposite edge. */ 

bottomerror = mag( mirrorx[ncxtcdgc]. mirrory[ncxtcdgc] + mirrory[cdgc] 

); 

if( bottomerror < radiusXtolcrancc[ncxtcdgc] ){ 

/ *Make sure top has > 0 yvalue */ 
if(mirrory[cdgc] > 0.){ 

top = edge; 140 

bottom = nextedge: 

} 

else{ 

top = nextedge: 
bottom = edge: 

} 

topmosty = mirrory[top] + image— >blobs[top], radius; 
bottommosty = mirrory[bottom] — image- >blobs[bottom]. radius; 

/ * Found a second edge so comer could be missing . sort out right left top 
bottom compute error . */ 150 

if(nccdtoswitch){ 

/ *What I think is left and right is actually top and bottom*/ 

/ * corner can be left/ down or right/ up*/ 

/ *try the later*/ 
possiblccomcrx = mirrorx [right]; 
possiblccomcry = mirrory[top]; 

if(CouldThisBcMissing(possiblccorncrx.possiblccomcry,xx,xy,yx,yy,originx,originy)){ 
FindSomcLcds(lcft, right, top, bottom, — 1, numofblobs, NumOfLedsToFind, 

led); 


ComputcError(top, bottom, rightjeft,— l.lcd): ieo 

} 

else { / *If right/up is not missing , is left/ down?*/ 
possiblccomcrx = mirrorx[lcft]; 
possiblccomcry = mirrory [bottom]; 

if(CouldThisBcMissing(possiblccomcrx, possiblccomcry, xx,xy,yx.yy,originx,originy)){ 
FindSomcLcds(lcft, right, top, bottom, -1, numofblobs, NumOfLedsToFind, 


ComputcError(bottom,top,lcft,right , - 1 .led) : 

} 

} 170 


led); 
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}/*End need to switch*/ 
else {/* Don’t need to switch */ 

/ *What I think is left and right is*/ 

/* corner can be left/ up or right/ down*/ 

/ *try the former*/ 
possiblccomcrx = mirrorx[lcft]; 
possiblccomcry = mirrory[topj; 

if l Co j U i dThisBcMissing(possiblccoracrx -P ossibIccomcr y ! xx- x y-yx.yy, ori ginx.originy)){ 
FindSomcLcds(lcft, right, top, bottom, -1, numofblobs, NumOfLcdsToFind, 

180 

ComputcError(lcft, right, top, bottom, - 1 , led); 

else { /* since left/ up not missing is right/ down*/ 
possiblccomcrx = mirrorx [right]: 
possiblccomcry = mirroryfbottom]; 

i f ( C ° uldThisBcMissin g(P ossiblcco m cr x, P°ssiblccomcry, xx.xy,yx,yy,originx,originy)){ 
FmdSomcLcds(lcft, right, top, bottom. -1. numofblobs. NumOfLcdsToFind. 

ComputcError(right, left, bottom, top, - 1 , led); 


}/*End no need to switch*/ 

/ *we have a left right and two edges we have tested the possibity 
that comer is missing now see if it is there*/ 

/ *For all blobs not left, right top or bottom*/ 

for(comcr=0;comcr<numofblobs;comcr++){ if( (comer != left) && (comer != 
right) (comer != edge) && (comer != nextedge) ){ 

if( fabs (mirrorx [comer] - mirrorx [left]) < radiusXtolcranccfcomcrl )( 

/ * Corner is on left*/ 

if ( fobs ( mirrory [comer] - mirrory[top]) < radiusXtolcrancc[comcE]>o 

/* comer is on left and top Should it be? only if not switched*/ 
if( !nccdtoswitch) { 

. ,, FindSomcLcds(lcft, right, top, bottom.comcr. numofblobs. NumOfLcdsToFind 

led); 

ComputcError (left .right .top. bottom.comcr.lcd) ■ 

} ' 

}/ *end of comer on left top*/ 

. , else if ( fobs (mirrory [comer] - mirrory[bottom]) < radiusXtolcranccfcomcr] 

210 

/ comer is on left bottom should it be? only if switched */ 
if(nccdtoswitch){ 

FindSomcLcds ( lcft ’ ri g ht ’ to P^ bottom, comer, numofblobs. NumOfLcdsToFind 

led); 

ComputcError(bottom, top, left, right, comcr.lcd): 

}/*end of comer on left bottom*/ 
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){ 

){ 

led); 


}/*end of comer on left*/ 

else if( fabs(mirrorx[comcr] - mirrorx[right]) < radiusXtolcrancc [comer] 

/* Corner is on right*/ 

if( fabs (mirrory [comer] - mirrory[topj) < radiusXtolcrancc [comer] 

/* comer is on right and top, should it be V only if switched*/ 
if(nccdtoswitch) { 

FindSomcLcds (left, right, top, bottom, comer, numofblobs, NumOfLcdsToFind. 

"B*A I‘): ‘B'A 


ComputcError (top, bottom, right, left, comcr.ld 1 ); 
int numofblobs, int numtofind, int lcdsfound[MAX LEDS])- ' 

int NcxtBlobOnMirror( int start, int left, int right int top, int bottom, int 
comer, mt numofblobs); 

int BlobIsOnMirror( int blobnumbcr); 


static int lastlcft, lastright; 
double besterror; 

int bcstlcft, bestright, besttop, bestbottom, bcstcomcr, bcstlcdfMAX LEDS1 
bestfound; j! 

double "mirrorx, "mirrory;/ *Blob x and y coordinates relative to the mirror*/ 

double "ccntx, "ccnty;/ temporary Blob x and y coordinates */ 

double "radiusXtolcrancc;/ *Blob radii times the tolerance*/ 

double "sizes, "radius: /4 

double leftmostx, rightmostx, topmosty, bottommosty; 

int TargctCosys(Imagc image, AllStats "allstats, double tolerance, int NumOfLcdsToFind) 

double leftx, rightx, lefty, righty; 
double originx, originy, dist; 

double xx. xy;/ *The x axis of the mirror, from left to right*/ 

double yx, yy:/ *The y axis of the mirror, 90 degrees CCW from x axis*/ 
double nx, ny; 

double toperror, bottomerror, possiblccomcrtopj.radius; ° 

bottommosty = -topmosty: 

} 

else { 
top = -1; 
bottom = edge; 

bottommosty = mirrory [bottom] - imago->blobs[bottom].radius; 
topmosty = — bottommosty; 

i • i,*\ ^°^ corncr=0 ’ corncr<numofb lobs;comcr++){ if( (comer != left) (earner 
!= right) (comer != edge) ){ 

/ *Does it have the correct y coordinate*/ 

m fab 5 ( fabs(mirrory[comor]) - fabs(mirroiy(cdgc]) ) < radiusXtolcranccIcomcr] 
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led): 


led): 


){ 


led): 


led); 


/ *yes it has correct y value does it have a correct x?*/ 
if( fabs ( mirrorx [corner ] - mirrorx[lcft]) < radiusXtolcrancc[comcr] ){ 

/ * comer is over/ under left*/ 
if( (mirrory[comcr] > O'.) kk !nccdtoswitch){ 

/ *comer is left up with no switch needed*/ 

FindSomcLcds(lcft, right, top, bottom, comer, numofblobs, NumOfLcdsToFind, 

ComputcError (left .right , top. bottom.comcr. led) ■ 

} 

else if( (mirrory[comcr] < 0.) kk nccdtoswitch){ 

/ *comer is left down with switch needed*/ 

FindSomcLcds ( left , right, top, bottom, comer, numofblobs, NumOfLcdsToFind, 

ComputcError(bottom, top, left, right, comer, led): 

}/ *cnd of comer at left*/ 280 

else if( fabs ( mirrorx [comer] - mirrorx[right]) < radiusXtolcrancc [comer] 

/ * comer is over/ under right*/ 
iff (mirroryjeomer] > 0.) && nccdtoswitch) { 

/ * comer is right and up with switch needed*/ 

FindSomcLcds(lcft, right, top, bottom, comer, numofblobs, NumOfLcdsToFind, 
ComputcError(top, bottom, right, left, comer, led): 

else if( (mirrory[comcr] < 0.) kk !nccdtoswitch){ 290 

/ * comer is right down with no switch needed*/ 

FindSomcLcds (left, right, top, bottom, comer, numofblobs, NumOfLcdsToFind, 


ComputcError (right. left, bottom, top, comcr.lcd); 

}/ *end of comer at right*/ 

}/*end of correct y*f 

}}/* finished searching over all possible comers*/ 
}/*End of opposite edge could be missing */ 

}/ *End of processing one edge find*/ 

}}/ *End search of all blobs that are not left and right*/ 
}/*end if distance between left and right is non zero*/ 
}/*end of picking two at random*/ 

FREE(mirrorx) : 

FREE(mirrory) ; 

FREE(sizcs); 

FREE(radius); 

FREE(radiusXtolcrancc); 
if(bcstfound){ 
allstats -> id. left = bcstlcft; 
allstats— >id.right= bestright; 
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allstats- >id.top= bcsttop; 
allstats->id.bottom= bcstbottom; 
allstats— >id.comcr= bcstcomcr; 
for(i=0;i<MAX_LEDS;i++){ 
allstats— >id.lcd[i]= bcstlcdfi]; 

return 0: 

} 

else{ 

allstats- > id. left = -1; 320 

allstats- >id.right= -1; 
allstats— >id.top= —1; 
allstats- >id.bottora= -1; 
allstats— >id.comcr= —1; 
for(i=0;i<MAX_LEDS;i++){ 
allstats- >id.lcd[i]= -1: 

} 

return 1; 

}/*end of program*/ 

int CouldThisBcMissing( double x, double y, double xx, double xy, double yx. 
double yy, double ox, double oy) 

{ 

int sx, sy; 

sx = ( int) (x*xx + y*yx + ox); 
sy = ( int) (x*xy + y*yy + 0 y); 
if( (sx < 0) || (sx > IMAGEWIDTH) ) return 1: 

if( (sy < 0) || (sy > IMAGEHEIGHT) ) return 1; ' 340 

return 0: 

} 


void ComputcError( int left, int right, int top. int bottom, int comer 
led [MAX LEDS] ) 

{ 

int i; 


int 


double thiserror: 

thiserror =mag(mirrorx[comcr] - mirrorx[lcft], mirrory[comcr]-mirrory[top]) 
fabs(mirrorx[top]) + 

mag(mirrorx[bottom], mirrory[bottom] + miiToryftop]) + 
fabs(mirrory[lcft]) + 

mag (mirrorx [right] + mirrorx[lcft], mirrory[right]): 
if( thiserror < bcstcrror){ 
besterror = thiserror; 
bcstlcft = left; 
bestright = right; 
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bcsttop = top; 
bcstbottom = bottom; 
bcstcomcr = comer; 
bcstfoimd = 1; 

for(i=0;i<MAXJjEDS;i+-f) bcstlcdfi] = Icd[i]; 

} 

void FindSomcLcds( int left, int right, int top, int bottom, int comer, int 
numofblobs, int numtofind, int lcdsfound[MAX_LEDS]) 

int i; 

int lastoncfound; 
lastoncfound — — 1; 

for ( i=0 ; i < M AX.LEDS ; i+ + ) ledsfound [i] = — 1 ; 
for(i=0;i<numtofind;i-h-h){ 

ledsfoundfi] = NcxtBlobOnMirror(lastoncfound-HL left, right, top, bottom, 
comer, numofblobs); 

if(lcdsfound[i]==— 1) return; 
else lastoncfound = ledsfoundfi]: 

} 


360 


370 


} 


380 


int NcxtBlobOnMirror( int start, int left, int right, int top, int bottom, int 
comer, int numofblobs) 

{ 

int i; 

for(i=start;i<numofblobs;i++) if( (i != left) kk (i != right) kk (i != top) 

&& (i != bottom) kk (i != comer) ){ 
if(BlobIsOnMirror(i)) return i: 

} 

return —1: 

} 

int BlobIsOnMirror( int i) 

{ 

if( (mirrorx[i] > leftmostx) kk (mirrorxfi] < rightmostx) kk (mirrory[i] < 
topmosty) kk (mirrory[i] > bottommosty) ) return 1; 
return 0 : 

} 


390 


400 


/*bx,by arc coordinates relative to b, ox,oy are origin relative to b, 
vx,vy is unit vector along new x relative to b, px,py is unit vector along 
new y relative to b, nx,ny are new coordinates relative to new x and new y*/ 
void ConvcrtCoordinatcs( double bx, double by, double ox, double oy. double v 
double vy, double px. double py, double *nx, double *nv) 

{ 
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double o2bx, o2by; 
o2bx = bx — ox; 
o2by = by — oy; 

*nx = o2bx * vx + o2by * vy; 

*ny = o2bx * px + o2by * py; 

/* Return 0 if there are no more permutations. 1 otherwise*/ 
int PickTwoAtRandom( int *lcft, int *right, int max) 

if(lastright < max){ 
lastright++; 

*right = lastright; 

¥ lcft = lastlcft; 

return 1: 

} 

else if(lastlcft < max){ 
lastlcft++; 
lastright = lastlcft; 
lastright+-t-; 

’'right = lastright; 

’'left = lastlcft; 

if(lastright > max) return 0; 
else return 1: 

} 

else return 0: 

} 

double mag( double x, double y) 

{ 

return sqrt(x*x + y*y); 

int Blob2IsBiggcrThanl (Image * image, int one, int two) 

if (image- >blobs[two].sizc > image- >blobs[onc].sizc ) return - 1 - 
return 0: ! 

} 
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Chapter 6 

target. c, target.h 


Documentation Date: 3/10/95 

6.1 Perform Target Calculations. 

N^Data Typel- 8,6 

None. 

Definitions: 

1 ^ue = 10 ’ Li “ eS draW “ °° ' ie 3creen are double this 


6.1.1 Header File Listing: 

* target. H * 


*** '**********/ 

#ifndef TARGET.H ' 

#define TARGET.H 

/ * defines the target data structure*/ 

^ •-**■ *■»- ^ *.* 
/* In addition to marking tho Hob, (blob mark, arc „t by rad.us) 
t marks ccnter of screen. Screen middle is given by 

#detof UNEHaTfSgThTo ^ “'“^^LENGTH */ 

^ >" t page, intmiddlex, int middlcy): 

voia MarkAllBlobs(Imagc image, int page): 

/ returns last three numbers given first*/ 

in ‘ FiKtRUUn ^' <■* ‘FirstBright, 

*■ - «- ***/ 
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/*Does the blob analysis and loads the image data structure */ 20 

int Dcfinclmagc( int FirstOn. int Off, int SccondOn, int storcpagc. Image 
thcimagc, long LargcstToFind, long SmallcstToFind, int thresh): 

/ * Subtract FirstOn minus Dim Plus SecondOn 
(if SecondOn<0 use single subtract) 

(if Dim<0 don’t subtract) 

using our double subtract algorithm , 

return the histogram in hist, only consider the ROI area of the image*/ 

D^ T VOi -f SubAndHisto S ram ( “t FirstOn, int Dim, int SccondOn, Histogram hist. 
ROI roi); 

/* Subtract FirstOn minus Dim Plus SecondOn 30 

(if SecondOn<0 use single subtract) 

(if Dim<0 don't subtract) 

using our double subtract algorithm , 

return the Fullhistogram in hist , only consider the ROI area of the image . 

The difference is 

thls and re 9 ular histogram is the bins range from -PIXELJAAX to +PIXEL MAX 

,. v oid FullSub AndHistogram( int FirstOn, int Dim, int SecondOn. FullHistogram 
hist, ROI roi); 6 


j*The following computes statistics of a selected area*/ 
void ComputcStatistics( int FirstOn, int Dim, int SecondOn ROI roi 
DPixcl * Brightest, DPixcl "Dimmest. DPixcl "Average. DPixcl "StdDcv 
long "NumbcrOfPixcls); 


/ *The following routines are not currently used*/ 
j The following is useful if no subtraction is needed* / 
void DoHistogram( int Frame. Histogram hist, ROI roi) - 
/* 


40 


This will subtract buffer 1 - buffer‘2 put the result in Output 
Output = ( Buffer 1 - Buffer2)/ Divide By + OffsetToAdd 
*1 


void Subtractjmagcs ( int FirstOn. int Off. int SecondOn 
DividcBy, int OffsetToAdd. ROI roi); 

double PositionDiffcrcncc(OncBlob "one, OncBlob "two): 


int Store, 


50 

int 


/*Puts an 0 around the blob the size of O depends on the radius*/ 
void MarkOncRctro(OncBlob "blob, int page) - 

#endif 
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6.2 Function: Global Target Routines 

Documentation Date: 3/10/95 
Prototypes: 

V0: AUStat. vallstata) ; 

void FindFramesForDoubleSubtractCint FiKtFalUnaEdv 1 '*' t"* " 1 ‘ ldley) : 
int *Dira, int *SecondBright) ; HingEdge, xnt *FirstBright, 

int FindSt or agelmage C int FirstFallingEdge) • 

Image 1 " *theimag<Z long^ Largest ToFind “wT jr**' *“ 

void SubAndH atogram«nt F L s t 0n T ^ *“ thrMh) ' 

hist, ROI roi); First On, int Dim, int SecondOn. Histogram 

hisr^“ t0gr “ (i "‘ FirSt0n ’ *“ Dim ’ int Seco " d0 “. FullHistograo 
void Mark0neRetro(0neBlob *blob, int page)- 

void MarkAllBlobs( Image image, int page)- 

vo O id bl LH 03 / iOnD j“ ere " Ce(0neB1Ob * 0ne - “ neBlob *t»0); 
void DoHistogramCint Frame, Histogram hist, ROI roi)- 

void Subtract-Iraages (int FirstOn int nt-f * - * 

int DivideBy, int OffsetToAdd, ROI roi)- ' Second0 "’ int s ">«. 

Source File: target, c 

Type of Function: User Callable 

— - "tar- 

Description: 

There are several routines in this file. The user callable ones are: 

1 fo hd^anTmace s " St ° rafie ,maffe is the tar £ a P a ff e that can be used 
o bold an image so the user can see the processing as it occurs Due to 

hardware problems, the leds blink On, On, Off, Off etc. (see Figure 6 1) 

he second On is used in Leo’s double subtract but the second Off is 

never used so it is the Storage Image. Since firstfallingedge is the image 

number of the second On, the second off is two more Ln that * 

2 ‘ fim ontZ T The Standard double subtract uses the 
nrst on, first off, and the next first on. 

3 ' ‘ Ca “ 3 the bl0b rOUti “ e “ d the image data 
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° Sram r ine SUbtraCtS ima S ra “ d P^°rms a his- 

ogram. It is capable of double subtract (if SecondOn > -1) but not 

showing the results. ROI defines the region of interest, only rows and 
columns m the ROI are processed. The histogram is stored as an ar- 
ray. The double subtract histogram probably does not work, it has 
never een use . For double subtract the histogram computes (Firston 
+ econdon - 2 Dim) which can be -510 to +510. We want this to 

NX-MBEROFmYFT < mmf be Converted to a ra *ge between 0 and 
IMBER0FPIXELBII\S-1 (presently 256-1 = 255). If a value outside 

tile range is stored a pointer conflict can result. 

For Single subtract compute (Firston - Dim) which chn be from -255 
. °u o f St i° re thlS as an array index between 0 and 255 bv di- 
S T ( h m t 3 i he raD ? - 127 '° +127) “ d «“■« 128 (range is 

be sener ^ zri - 

'' Fu ^ S u b AndHist ogram - This routine subtracts images and performs 
a histogram. It differs from SubAndHistogram in the folloXg way. 
VVhen an image is subtracted, the result can be from -255 to +255 (- 

traced JVUX> +PIXELJVIAX) but Sub AndHistogram converts the sub- 

d vidln, 1 bv afi 9 r? r \ Dfie m ° ^ 255 ’ WhiGh meanS COm P acts * by 
dividing by 2 (makes the range -127 to +127) then adding 128. This 

routine (FullSubAndHistogram) does not divide by 2 nor add anything. 

It is capable of double subtract (if SecondOn > - 1 ) but has not been 
tested in this mode. ROI defines the region of interest, only rows and 

The d “"hi 11 X R01 t re pr0Cessed ' The Vagram is stored L an array, 
used fS d 3ub P robabl y does not work, i, has never been 

2 Diml /9 v £ 3Ubt ' m the h,st0 S ram computes (Firston + Secondon 
- 2 Dim)/2 which can be -255 to +255 (-PIXEL-MAX, +PIXELJ.IAX), 
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‘ Dim) which can be from - 255 “ 
+255 (-PIXELJV1AX, +PIXEL_MAX). 

For no subtract the histogram ranges from 0 to 255 (0, +PIXEL.MAX). 

REP OFP T Y F ^ an array index between 0 md FULLNUM- 
BEROFPIXELBII\S which is currently PIXEL-MAX *2 +1 or 0 to 511 

Index^ray ^ue) 0 cofiesponds to the Dumber of pixels with intensity 
(+PlXELiUX) X , X 5U ^ the n " mber at iMensit >’ + 2 “ 

The code is written so that PIXEL-MAX can be changed at will and the 
routine should continue to run. We have never changed PIXEL-MAX 
however to test this. 

6. LoadTargetFromStats - The image data structure contains the blob in- 
formation allstats contains information about which blob is top, etc. 
Target is loaded with the blob information. There should probably be a 
better way to do this instead of copying. If the id in allstats is = -1 it 
means the blob is missing. 

The AUStats data structure contains information about which blobs are 
retros and which ones are likely to be LEDs. The target data structure 
wants a single centroid location for the LED so this routine converts the 
number of LEDs into a single LED blob. The algorithm is not fancy and 

if the number of LED's found differs from what is expected the routine 
says none were found. 

7. Mark-Target - This routine puts an LED mark (an X with one white line 
and one black line so it shows up) on the LED blob. It draws an LED 
mark on the corner retro also. It also draws Retro marks (circles with 
radius equal to the blob radius, one white and one just inside it with 
black). It also puts a + at the 0,0 location. 

8. MarkOneRetro - Draws a white and black circle over a blob. The black 
circle has radius equal to the blob, the white’s radius is 2 pixels larger. 

9. ComputeStatistics - This routine will compute the magnitude of the 

nghtest and Dimmest intensity, the average intensity, the standard 
deviation of intensity and the number of pixels in the region of interest 
It works with no subtraction, single subtraction and double subtraction. 

10. MarkAllBlobs - Draws a circle around all the blobs. It uses MarkOneRetro 
to do the marking. 

11. PositionDifference - Computes the distance in pixels between two blobs. 

12. DoHistogram - Computes the histogram of an image. 

13. Subtract -Images - Subtracts two images and stores it. Only works on 
pixels inside the ROI. 
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6.3 Function: Local Target Routines 

Documentation Date: 3/10/95 
Prototypes: 

void MarkOneLED (OneBlob *blob, int page); 

void CopyOneBlob (OneBlob *from, OneBlob *to); 
double TotalSizeOfAllBlobs(OneBlob blobs[], int numblobs); 
void Integrate_Image (int Frame, double *sum, ROI roi)- 
Source File: target, c 

Type of Function: Internal to the Library, Not User Callable 
Header Files Used in target.c: <stdio.h> <math.h> ” datatype. h' 1 ’’tar- 

get. h” ”targa8.h” ” misc.h ” ’’blob.h” 

Description: 

There are several internal routines in this file this section describes all but one. 
The internal routines described are: 

1. TotalSizeOfAUBlobs - adds up the size of all blobs. 

2. CopyOneBlob - copies one blob into another. 

3. MarkOneRetro - draws a white and black circle over a blob. 

4. MarkOneLED - draws a white and black x over a blob. 

5. Integrate-Image - Sums the intensity of all pixels inside the ROI to de- 
termine the total brightness. 



6.4. FUNCTION: FINDFRAMESFORDOUBLESUBTRACT 


133 


x x 



6.4 Function: FindFramesForDoubleSub tract 

Documentation Date: 6/24/94 
Prototypes: 

void FindFramesForDoubleSubtract(int FirstFallingEdge, int *FirstBright , 
int *Dim, int *SecondBright) ; 

Source File: target. c 

Type of Function: User Callable 

Header Files Used in target. c: <math.h> ” datatype. h ” ’’target.h” ”targa8.h” 
’’misc.h” ’’blob.h” 

Description: 

This routine determines which image frames are On and which are Dim. It 
locates two On frames and the Off frame between them. FirstFallingEdge 
(passed to the routine) is used for the calculation. 

6.4.1 Theory 

The program grabs eight frames. Two consecutive frames have the LED on. 

The first of the two has the LED on brighter than the second (a hardware 
problem). After two on frames, there are two consecutive off frames. The 
second off however has the LED on dimly (hardware problems). Suppose 
frames have been grabbed as figure 6.2 shows. The figure shows frames 3 and 
4 as a consecutive set of On frames. Frame 0, is what is called the first falling 
frame (defined elsewhere). What this routine does is set FirstBright = 3, Dim 
= 5, and SecondBright = 7. If the FirstFallingFrame is > 0 then FirstBright 
= FirstFalling -1. 
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6.5 Function: ComputeSignalToNoise 

Documentation Date: 6/24/94 
Prototypes: 

void ComputeSignalToNoise (Image *image); 

Source File: target, c 

Type of Function: Internal to the Library, Not User Callable 

W?' 4fo6^ ed ” ‘ arge ‘- C: <math h> " datatnx h " ’W 

Description: 

This routine computes a number which it stores in the image data structure 

3ere Znd r TV“ PP ° Sed V° a degree of c °“ ad <m* in the blobs that 

jvere found The greater the number the more confidence. It is not a proba- 
bility therefore the number can be > 1. ^ 

6.5.1 Theory 

rir“h C e e r th Kl l i! 0bS ^ determined “ image, every pixel belongs to 
either a blob or the background. Suppose you draw a histogram of the image 

hetlobl W °d l°°u “T*?* like figure M We know which pixels belong 

deviadon T "L 'a backgromd - We compute the mean and standard 
dev.at.on of both d.str.but.ons. The Blob hump is considered the signal, the 

“Z 13 CODS,dered the aoise - The Signal to Noise value is defined 

^d^R 1 t * y u d ', S f anCe betWeen (B1 ° b Mea “ ' 1 Blob Standard Deviation) 
and (Background Mean + 1 Background Standard Deviation). If the Signal 

to Noise value is large then the pixels considered to be blobs are “separated” 
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from the background. If it is small, the blobs are less distinguishable from 
background. 
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6.5.2 Program Listing: 

/ *@@@ ******************************************************************** 
target. C 

************************************************** 

# include <math.h> 

#include <stdio.h> 

# include "datatype. h" 

#include "target. h" 

#include "targa8.h" 

^include "misc.h" 

# include "blob.h" 10 


/*Puts an X over the blob the size of X depends on the blob radius*/ 
void MarkOncLED(OncBlob *blob, int page): 

/*Puts an 0 around the blob the size of 0 depends on the radius*/ 
void CopyOncBlob(OncBlob *from, OncBlob *to): 
double TotalSizcOfAllBlobs(OncBlob blobs[], int numblobs); 
void ComputcSignalToNoisc(Imagc *imagc); 

/ *The storage image is the targa page that can be used to hold an 20 

image so the user can see the processing as it occurs. Due to hardware 

problems we blink the led On, On, Off, Off etc. The 

second On is sometimes used in Leo ’s double subtract but the second Off 

is never used so pick it as the Storage Image. Since firstfallingedge is 

the image number of the second On, then the second off is two more than 

that. */ 

int FindStoragcImagc( int FirstFallingEdgc) 

{ 

return (FirstFallingEdgc + 2): 

/ *This is the bad off*/ 30 

} 

/ *The standard double subtract uses the first on, first off, and the 
next first on. */ 

void FindFramcsForDoublcSubtract( int FirstFallingEdgc. int *FirstBright. int 
*Dim. int *SccondBright) 

{ 

if(FirstFallingEdgc == 0)*FirstBright = 3; 
else * First Bright = FirstFallingEdgc — 1; 

*Dim = *FirstBright + 2; 40 

*SccondBright = *Dim + 2: 

} 

ImagcLinc firstonlinc, offline, sccondonlinc,storclinc;/*77u's produces a stack 
overflow unless static*/ 
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/ *This routine calls the blob analysis routine */ 

int Dcfinclmagc( int FirstOn, int OIF, int SccondOn. int storcpagc, Image *thcimagc, 
long LargcstToFind, long SmallcstToFind, int thresh) 

{ DO 

int error; 

DPixcl neg, pos; 

OneBlob ncgblobs[5];/ *Changed from. 1 to debug*/ 
int numofhegtofind; 

ROI roi; 

WHOLEJMAGE(roi); 
neg = (DPixcl) -thresh; 
pos *s (DPixcl) thresh; 
theimage— >posthrcshold = pos; 

theimage— >ncgthrcshold = neg; eo 

theimage — >num_of_blobs_found = MAX.BLOBS.PER.PICTURE; 
numofhegtofind = 0; 

error = ExtractBlobs(FirstOn, Off, SccondOn, storcpagc, &numofticgtofind, 
neg, ncgblobs, &thcimagc— >num_of_blobs_found. pos, theimage— > blobs, &thcimagc— > background. 
LargcstToFind, SmallcstToFind, roi); 

ComputcSignalToNoisc(thcimagc); 

return(crror): 

} 

/ *This routine subtracts images and performs a histogram . It is capable 70 

of double subtract (if SccondOn > — 1) but not showing the results. ROI 
defines the region of interest. *f 

void SubAndHistogram( int FirstOn, int Dim, int SccondOn. Histogram hist, ROI 
roi) 

{ 

int row.col.i; 

DPixcl temp; 

/ *The histogram must be an array. Set it zero at first*/ 

for(i=0;i<NUMBEROFPIXELBINS;i++)hist[i]=0; 

/ *For all rows in the ROI*/ so 

for (row=roi.ys;row<roi.yc;row=row+roi. resolution) { 

GctLinc(row,FirstOn,firstonlinc); 
if(Dim > -l)GctLinc(row, Dim, offline); 
if(SccondOn > —l)GctLinc(row, SccondOn. sccondonlinc); 
for (col=roi.xs;col<roi.xc;col=col-h roi. resolution)! 
j*For double sub. compute (Firston + Secondon — 2 Dim), this 
can be —510 to +510. We want this to be an array index so it should be 
converted to a range between 0 and NUMBEROFPIXELBINS. This routine 
should be corrected. Double subtract has never been used in histogram so 
perhaps this is why this bug was never found. */ 90 

if(SccondOn > — l)tcmp = max (( ( (DPixcl) firstonlincfcol] — 2*(DPixcl) offlinc[col] 

+ (DPixcl) sccondonlinc[col] )/2+ 128), 0); 

/ * Single subtract Firston — Dim can be from —255 to +255. We store 
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-%7to\ a M) ind rL et ZT, 0 and 255 50 divide by 2 (makes thc 

befit th A u i (mn9e 1 t0 255) - This is not t0 ° 9°°d 

because the index should range from 0 to NUMBEROFPIXELBINS- 1 It doe s 
m this case since NUMBEROFPIXELBINS=256 but it should be more 
general.*! 

)/2+ 128)!o)! f (Dlm > tCmP = maX (( ( (DPixcl ) Sretonlincfcol] - (DPixcl) offlinc[col] 

else temp = firstonlincfcol]; 100 

#ifdef CHECKLENGTH 

#endif tCm ^ >=N ^^ B ^ 0 ^' P ^^ LB ^ N ^ ) ^' ata *''^ rr „ r ~^ cssa ® c ^"® lew « in Sn^dhi..,^,.); 
hist[ ( int) temp ]++; 

} 

} 

Ro1 d ro^" S “ bAndHiSt0gram( in ‘ First0n ' int Dim ' int London. MHistogmm hist, 

{ 

int row, col, i; 

DPixcl temp; 

^for(i=0;i<FULLNUMBEROFPIXELBINS;i++)hist[i]=0; 

for(t— 0, i < FULLNUMBEROFPIXEL BINS; i++)printf( % d\ %d”, i, histfi}); 

for(row=roi.ys;row<roi.yc;row=row+roi.rcsolution){ 

GctLinc(row.FirstOn.firstonlmc); 
if(Dim> — l)GctLinc(row, Dim. offline): 
if(SccondOn > -lJGctLincfrow^ccondOn.sccondonlinc): ' 
for(col=roi.xs;col<roi.xc:col=col-froi.rcsolution){ 

+ ( DP^ c r„^te = ( <DPixc ° “° mi - 2,(dpm > 

. :::: - (Dp “> offltac| “ 11 ! 

it 

#endif 130 

hist[ ( int) temp + PIXEL_MAX]++; 

7 

} 

} 


i40 
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void ComputcStatistics( int FirstOn. int Dim. int SccondOn ROI roi 
DPixcl ^Brightest, DPixcl ^Dimmest, DPixcl ^Average, DPbccl *StdDcv. ’ 
long v NumbcrOfPixcls) 

{ 

double sum, sumsq, davc; 
int numrows, numcols; 


DPixcl maximum, minimum; 
DPixcl temp; 
int row, col; 

maximum = -PIXEL_MAX; 
minimum = PIXEL_MAX; 
numrows = numcols = 0; 


sum = sumsq = 0.; 

for(row=roi.ys;row<roi.yc;row=row+roi.rcsolution){ 

numrows++; 

GctLinc(row, FirstOn, firstonlinc); 
if(Dim > -1) GctLinc(row, Dim, offline): 
if(SccondOn > -l)GctLinc(row, SccondOn, sccondonlinc): 
numcols=0; 


for(col=roi.xs;col<roi.xc;col=col+roi.rcsolution){ 

numcols++; 

m- r lf !i (Dl ^n && (Sccond0n > - 1 ) ) tc mp = ( (DPixcl) firstonlinc[col] • 
offlincfcol] + (DPixcl) sccondonlinc[col] )/2; 

else if(Dun > -1) temp = (DPixcl) firstonlinc[col] - (DPixcl) offlincfcol] 


16 C 


else temp = (DPixcl) firstonlinc [col]: 
maximum = max (maximum, temp); 
minimum — min (minimum, temp); 
sum = sum + ( double) temp; 
sumsq = sumsq + ( double) temp * ( double) temp; 

. > 

*NumbcrOfPixcls = numcols * numrows: 
davc = (sum/ ( double)* Numb crOfPixcls): 

* Average = (DPixcl) davc; 

¥ StdDcv = (DPixcl) sqrt (sumsq/ ( double) *NumbcrOfPixcls - davc * davc): 
^Brightest = maximum; 

^Dimmest = minimum: 

} 


/ *The image data structure contains the blob information, allstats 
contains information about which blob is top, etc. Target is loaded with 
the blob information. There should probably be a better way to do this 

instead of copying. If the id in allstats is = -1 it means the blob is 
missing. */ 

void LoadTargctFromStats(Imagc *image, Target ^target. AllStats *allstats) 


2*(DPixcl) 
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int countcr.numoflcdsfound; 
double tcmpsizc; 

target— >num_of_lcd = 0; 190 

target— >lcd.sizc = 0.; 

target— >lcd.gray = 0.; 

target— >lcd.ccntx = 0.; 

target— > led. ccnty = 0.; 

numofledsfound = 0; 

for(counter=0;(allstats— >id.lcd[countcr]>— l)&&(countcr<allstats— >id.NormalNumOfLcds);countc 

numoflcdsfound++: 

tcmpsizc = image— >blobs[allstats—>id.lcd[countcr]].sizc; 
target— > led. size = target— >lcd. size + tcmpsizc; 

target— >lcd.gray = target ->lcd.gray + tcmpsizc*imagc->blobs[allstats->id.lcd[countcr]].gray; 
target -> led. ccntx = target— >lcd.ccntx + image— >blobs[allstats—>id.lcd[countcr]]. ccntx: 
target — > led. ccnty = target -> led. ccnty + imagc->blobs[allstats->id.lcd[countcr]].ccnty; 

printf("counter is ’/.d", numofledsfound); 
if (numofledsfound == allstats- >id.NormalNumOfLcds){ 
target— >num_of_lcd = 1; 

target— >lcd.gray = targct->lcd.gray/targct->lcd.sizc; 
target— >lcd. ccntx = target— >lcd.ccntx/nmnoflcdsfound; 
target -> led. ccnty = target- > led. ccnty/numoflcdsfound; 

J 210 

target— >lcd.radius = 1. ; 

target— > led. variance = 0.: 

target— >NumOfOdd = 0; 
if( allstats— >id. comer > — 1){ 

CopyOncBlob(&imagc— >blobs[allstats— >id.corncr].&targct->OddRctro); 

target— >NumOfOdd = 1: 

} ' 

target- >lcft = 0; 

if(allstats— >id.lcft > -1){ 220 

CopyOncBlob(&imagc— >blobs[allstats— >id.lcft],&targct— >lcftrctro); 

target- >lcft = 1: 

} 

target— > right — 0; 
if( allstats— >id.right > — 1){ 

CopyOneB lob ( & image - > blobs [allstats- > id. right] ,&targct- >rightrctro) ; 
target- >right = 1: 

} 

target -> top - 0; 

if( allstats— >id.top > — 1){ 230 

CopyOncBlob(<k image >blobs[allstats — >id.top],&targct — >toprctro) : 
target— >top = 1: 

} 

target- >bottom = 0: 
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if( allstats— >id.bottom > — 1){ 

CopyOncBlob(<Sc image— >blobs[allstats— >id.bottom],&targct— >bottomrctro) ; 
target— >bottom = 1; 

} 


} 


240 


/ *This routine puts an LED mark (an X with one white line and one 
black line so it shows up) on the LED blob. It draws an LED mark on the 
comer retro also. It also draws Retro marks (circles with radius equal 
to the blob radius, one white and one just inside it with black). It 
also puts a + at the 0,0 location.*/ 

void MarkJTargct (Target *targct, int page, int middlex, int middlcy) 

linc(pagc,middlcx-LINEHALFLENGTH, middlcy, middlcx+LINEHALFLENGTH.middlcy, WHITE 
linc(pagc, middlex, middlcy— LINEHALFLENGTH, middlex, middlcy+LINEHALFLENGTH,WHITl 
if ( t arget - > left ) M arkOncRctro ( & t ar get - > lcftrctro .page) ; 
if(targct— >top) MarkOncRctro(&targct— >toprctro.pagc); 
if(targct - >right) MarkOncRctro ( & target - >rightrctro,pagc) : 
if(targct— >bottom) MarkOncRctro (& target - >bottomrctro.pagc) ; 
if ( target— >num_of_lcd) MarkOncLED(&targct->lcd,pagc): 
if ( target — > N umOfOdd) { 

MarkOncLED(&targct— >OddRctro,pagc); 

MarkOncRctro (^target - >OddRctro .page) ; 

} 


250 


} 

void MarkAllBlobs(Imagc image, int page) 

{ 

int i; 

for(i=0;i<image.num_of_blobs_found;i++){ 
MarkOncRctro(<fcimagc.blobs[i]. page); 

} 

} 

j t*********** 

Local Routines 

j 

/ *This routine adds up the size of all blobs. */ 
double TotalSizcOfAllBlobs(OncBlob blobs[], int numblobs) 

{ 

int i; 

double rctumvaluc; 
rctumvaluc — 0; 
for(i=0 ;i<numblobs;i+-b){ 
rctumvaluc = rctumvaluc + blobs[i].sizc: 

} 

return rctumvaluc; 


260 


270 


280 
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} 

void ComputcSignalToNoisc(Imagc *imagc) 

j *This needs a better algorithm to compute the background’s variance, the 
shortcut formula does not work*/ 
int i; 

double totalsizc; 

double totalvariancc, totalavcragc; 290 

image— >SignalToNoiscMar gin = 0: 

return; 

if( image— >num_of_blobs_foimd == 0){ 

image — > SignalToNoiscMargin = -image- >background.gray - sqrt (image- background. variance) 

return: 

} 

totalvariancc = 0.; 
totalavcragc = 0.; 
j * Add all blob sizes together *j 

totalsizc = TotalSizcOfAllBlobs(imagc— >blobs, image— >num_of_blobs_found);3oo 

/ * For each blob add its contribution to the distribution’s mean and 
variance *f 

for(i=0:i<image— >num_of_blobs_found;i++){ 
totalvariancc = totalvariancc + imagc->blobs(i].sizc*imagc->blobs[i].variancc; 
totalavcragc = totalavcragc + imagc->blobs[i].sizc*imagc->blobs[i].gray; 

j* Compute the Blob mean and Standard Deviation */ 
totalvariancc = totalvariancc / totalsizc; 
totalavcragc = totalavcragc / totalsizc; 

/ * Value is Intensity difference between: 310 

(Blob Mean — Blob Std. Dev.) and 
(Back Mean + Back Std. Dev.) */ 

image -> SignalToNoiscMargin = ((totalavcragc - sqrt(totalvariancc)) - (image -background. gray 
+ sqrt(imagc-background.variancc))); 

} 

j * This routine copies one blob into another */ 
void CopyOncBlob(OncBlob *from. OncBlob *to) 

to— >sizc = from— >sizc; 320 

to->ccntx = from->ccntx; 

to->ccnty = from->ccnty; 

to->gray = from— >gray; 

to->radius = from->radius; 

to— >variancc = from— >variancc; 

} 

/ *This routine draws a white and black circle over a blob*/ 
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void MarkOncRctro(OncBIob *blob, int page) 

{/ *fix to be general*/ 330 

circlc(pagc, ( int) blob— >ccntx, ( int) blob->ccnty, ( int) blob— >radius, BBLACK); 
circlc(pagc, ( int) blob— >ccntx, ( int) blob->ccnty, ( int) (blob— >radius + 

2), WHITE); 

} 

/ Hhis routine draws a white and black x over a blob*/ 

#define HALFSIZE 2 
#define FULLSIZE 4 

void MarkOncLED(OncBlob ’‘‘blob, int page) 

{ 340 

int startlightx, startlighty,startdarkx, startdarky: 
int cndlightx,cndlighty, enddarkx, enddarky; 

startlightx = (( int) blob— >ccntx) — ( int) blob->radius * HALFSIZE; 
cndlightx = startlightx 4- ( int) (blob— >radius * FULLSIZE); 

startlighty = (( int) blob— >ccnty) — ( int) blob->radius * HALFSIZE; 
cndlighty = startlighty 4- ( int) (blob— >radius * FULLSIZE); 

startdarkx = ( int) blob— >ccntx 4 - ( int) blob— >radius * HALFSIZE: 350 

enddarkx = startdarkx — ( int) (blob— >radius * FULLSIZE); 


startdarky = ( int) blob— >ccnty — ( int) blob— >radius * HALFSIZE; 
enddarky = startdarky 4- ( int) (blob— >radius * FULLSIZE); 
linc(pagc, startlightx, startlighty, cndlightx, cndlighty, WHITE); 
linc(pagc, startdarkx, startdarky, enddarkx, enddarky, BBIyACK): 

} 


/ *The following are not currently used*/ 

I mm********** **************** ********** 

* Histogram of IMAGE * 


void DoHistogram( int Frame, Histogram hist, ROI roi) 

{ 


int row, col; 
ImagcLinc line; 


int i; 


360 


for(i=0;i<NUMBEROFPIXELBINS;i4-4-)hist[i]=0; 
for (row=roi.ys;row<roi.yc;row=row4- roi. resolution)! 

GctLinc(row, Frame, line); 370 

for (col=roi.xs;col<roi.xc;col=col4- roi. resolution)! 

#ifdef CHECKLENGTH 

if(( int)linc[col]>=NUMBEROFPIXELBINS)Fatal_Error_Mcssagc( M Blew it in Dohistogram")* 
#endif 

hist[ ( int) linc[col] ]++; 
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} 

} 

} 


j ****************************************** 

* SUBTRACT JMAGES * 

*t*t******t**t****t*****************t****** 

void Subtractjmages (int FirstOn, int Off, int SecondOn, int Store, int DivideBy, 
int OffsetToAdd, ROI roi) 

{ 

int row, col; 

DPixel temp; 


// Older subtract routine that should be slower with ” if ” statements 
/ /buried in the loop 390 

//This will subtract buffer 1 — buffer 2 put the result in Output 
// Output = ( Buffer 1 - Buffer2)/ DivideBy + OffsetToAdd 

for(col=0;col<IMAGEWIDTH;col++)storelinefcolJ=0; 

for(row=roi.ys;row<roi.ye;row=row+roi.rcsolution){ 

GetLine( row, FirstOn, firstonline) ; 

if( Off>- l)GetLine(row, Off, offline); 

if (SecondOn > — l)GetLine(row, SecondOn, secondonline) ; 

for( col=roi.xs;c.ol< roi.xe;col= col -broi. resolution ){ 

if (SecondOn > -l)temp = max (( ( (DPixel) firstonlinefcolj - 2* (DPixel) offtinefcolj 
+ (DPixel) secondonline [col] )/ DivideBy + OffsetToAdd),0); 

else if( Off> — l)temp = max (( ( (DPixel) firstonlinefcolj - (DPixel) offlinefcol] 

)/ DivideBy + 0ffsctToAdd),0); 

else temp = (DPixel) firstonlinefcolj; 
storeline f col] = (Pixel) temp; 

} 

PutLincf row, Store, storeline) ; 

} 

} 

7 

j **************^c**t************t**t ******** 

* SUBTRACTJMAGES * 

**************t*t********^****^t**********i 

void Subtractjmages ( int FirstOn, int Off, int SecondOn, int Store, int DivideBy, 
int OffsetToAdd, ROI roi) 

{ 

int row, col; 

DPixel temp: 

r 

This will subtract bufferl — buffer2 put the result in Output 420 

Output = (Bufferl - Buff er2) / DivideBy + OffsetToAdd 

7 
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for(eol=0;col<IMAGEWIDTH;col++)storclinc[col]=0: //Do wc need this? 

if( (Off> — 1) && (SccondOn<0) ){ //Single subtract 
for(row=roi.ys;row<roi.yc;row==row+roi.rcsolution){ 
GctLinc(row,FirstOn,firstonlinc); 

GctLinc(row, Off, offline); 

for(col=roi.xs;col<roi.xc;col=col+roi.rcsolution){ 

temp = max (( ( (DPixcl) firstonlinc[col] - (DPixcl) offline [col] )/DividcBy 
+ OffsctToAdd),0); 430 

storclinc[col] = (Pixel) temp; 

} 

PutLinc(row,Storc,storclinc): 

} 


if( (Off> — 1) && (SccondOn> — 1) ){ //Double subtract 
for(row=roi.ys:row<roi.yc;row==row+roi.rcsolution)! 
GctLinc(row,FirstOn,firstonlinc); 

GctLinc(row,Off,offlinc); 440 

GctLinc(row,SccondOn,sccondonlinc); 
for (col=roi.xs;col<roi.xc;col=col+ roi. resolution)! 

temp - max (( ( (DPixcl) firstonlinc[col] - 2* (DPixcl) offlinc[col] + (DPixcl) 
sccondonlinc[col] )/DividcBy 4- OffsctToAdd),0); 
storclinc[col] = (Pixel) temp: 

} 

PutLinc(row, Store, storclinc): 

} 

} 

if( (Off<0) (SccondOn<0) ){ //No subtraction at all. Why?? 450 

for(row=roi.ys;row<roi.yc;row=row4-roi.rcsolution){ 
GctLinc(row,FirstOn,firstonlinc); 
for (col=roi.xs;col<roi.xc;col==col-f-roi. resolution)! 
temp = (DPixcl) first online [col]; 
storclinc[col] = (Pixel) temp; 

} 

PutLinc(row, Store, storclinc): 

} 


} 

} //End of subtraction routine 4 eo 

j **************** ************************** 

* Integrate Jmage* 

******************************************! 

/ *This routine integrates the gray scale values over an entire image 
to indicate the total brightness of the image* j 


void Integrate Image ( int Frame, double *sum, ROI roi) 

{ 

int row, col; 
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*sum=0; 

for (row=roi.ys;row<roi.yc.;row=row+roi. resolution)! 
GctLinc(row,Pramc,firstonlinc); 
for(col=roi.xs;col<roi.xc;col=col+roi. resolution)! 
*sum = *sum + ( ( double) firstonlinc[col] ); 

} 

} 

} 


/ * This routine returns the distance between two blobs */ 4 80 

double PositionDiffcrcncc(OncBIob *onc, OncBlob *two) 

return( sqrt( squarc(onc->ccntx-two->ccntx) + square (one - > ccnty - two - >ccnty ) 

} 
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memory.c, memory.h 


Documentation Date: 6/27/94 

7.1 Memory Management Functions 

The routines in this file perform memory management. 

New Data Types: 

None. 

Definitions: 

L ^ LL0C ‘ define 35 MyMalloc if you want memory debugging functions. 
Define it as malloc if you do not. 

2. FREE - define as MyFree if you want memory debugging. Define it as 
tree if you do not. 

7.1.1 Header File Listing: 

#ifndef MEMORY.H 
#define MEMORY H 
/* 

#dcfine MALLOC MyMalloc 
# define FREE MyFree 

7 

#define MALLOC malloc 
#define FREE free 


j*To make sure memory allocations are freed MyMalloc and MyFree keep 10 
count of the number of allocations * f 
void MyFree ( void *a); 
void ¥ MyMalloc(sizc_t size): 

#endif 
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7.2 Function: Various Memory Functions 

Documentation Date: 6/27/94 

Prototypes: 

void increasememO 
void decreasememO 
void MyFree(a) 
void *MyMalloc (size.t size) 

Source File: memory. c 

Type of Function: Internal to the Library, Not User Callable 
Header Files Used in memory.c: <malloc.h> <stdio.h> ”memory.h' ; 

Description: 

These routines count the number of times a malloc and free is performed. 
They are used to make sure all allocated memory is freed. The file memory'. h 
contains two definitions that cause the commands MALLOC and FREE to 
either point to the c library functions or these. The routines increasemem and 
decreasemem increment (decrement) a counter and print messages. 

7.2.1 Program Listing: 

#ifndef NeXT 

#include <malloc.h> 

#else 

# include <stdlib.h> 

#endif 

# include <stdio.h> 

#include "memory. h" 

static int numbcrofaddrcsses=0; 
void incrcascmcm( void); 
void dccrcascmcm( void); 

void incrcascmcmQ 

{ 

numbcrofaddrcsscs-|--f : 

printf(" There are */.d memory allocations .\r".numbcrofaddrcsscs); 

void dccrcascmcm() 

{ 

numbcrofaddrcsscs ; 

printf("There are '/,d memory allocations. \r", numbcrofaddrcsscs): 


20 



7.2. FUNCTION: VARIOUS MEMORY FUNCTIONS 


149 


void MyFrcc(a) 
void *a; 

{ 

free (a): 

dccrcascmcmQ: 

} 

void ¥ MyMaIloc(sizc t size) 

{ 

void *a; 

a = malloc( size ); 
if(a != NULL) incrcascmcm(); 

return(a): 

} 
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Chapter 8 
misc.c, misc.h 


Documentation Date: 3/10/95 


8.1 Miscellaneous Functions 

These are miscellaneous routines that do not fit elsewhere. 

New Data Types: 

None. 

Definitions: 

• min - a macro defined to return the minimum of two numbers. 

• max - a macro defined to return the maximum of two numbers. 

• M_PI - Pi 

• FILENAMEJSTORAGE.TOOJSMALL = 10 - Error Return 


8.1.1 Header File Listing: 

* MISC.H * 

* * 

* Miscellaneous procedures. * 

#ifndef MISC.H 
#define MISC.H 
#ifhdef min 

#define min(a.b) (( (a) < (b) ) ? (a) : (b)) 

#endif 
#ifndef max 

#define max(a.b) (( (a) > (b) ) ? (a) : (b)) 

#endif 
#ifndef M.PI 


10 
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# define M_PI 3.14159265358079323846 
#endif 

/ *retums -hi if x>0 -1 if x<0 returns 0 if x=0*j 
double sgn( double x); 
f* returns x*x */ 
double square ( double x); 

/* rounds x up or down*/ 
double round( double x); 

/ * returns a 4 quardrant inverse tangent in degrees*/ 
double atan2d( double numcr, double denom): 

/ * Takes a filename and an extension and constructs the fullname 
fullname is dimensioned len 


Returns SUCCESS or FILENA ME_STORA GE_ TO 0_SMALL */ 
#define FILENAME_STORAGE_TOO_SMALL 10 
int FormFullFilcNamc( char *fullnamc, int len. char *namc, 
#endif 


char *cxt); 

30 
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8.2. FUNCTION: MISCELLANEOUS FUNCTIONS 

8.2 Function: Miscellaneous Functions 

Documentation Date: 6/27/94 

Prototypes: 

double sgn(double x); 

double square (double x) ; 
double round(double x) ; 

double atan2d (double numer, double denom) ; 
int FormFullFileName(char *fullname, int len, char *name, char 
*ext) ; 

Source File: raise. c 

Type of Function: User Callable 

Header Files Used in misc.c: <math.h> ” raise. h ” 

Description: 

1. sgn(double x) - returns the +- sign of x. 

2. square - returns the square of x. 

3. round(double x) - returns x rounded off to nearest integer. 

4. atan2d(double numer, double denom) - returns the inverse tangent of 
numer/denom in degrees. It returns the proper quadrant. 

5. FormFullFileName - Forms a full file name given the name string and 
extension string. Len is the length of the Fullname string storage space. 

8.2.1 Program Listing: 

/ *@@@********************* ******************************** *************** 

MISC.C 

Miscellaneous procedures. 

********************************************************** ******^,*^ t ^ ttt ^ 
#include <math.h> 

#include <string.h> 

#include <stdio.h> 

^include "datatype. h" 

#include "misc.h" 

10 

j ****************************************** 

* round * 

******************************************/ 

double round( double number) 

{ 
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int i; 

i = ( int) ( number + sgn(numbcr) * .5); 

return(( double) i): 

} 

j *******************tt*******i,t*^t********* 

* SGN * 

****************** **ii^t*4‘****i'*tt*t*******^ 
double sgn( double x) 

{ 

if(x < 0.) return(— 1.); 
if(x > 0.) return(l.); 
return(0.): 

} 

j ***********************t******^t ********** 

* SQUARE * 

***********************************mtftf/ 

double square ( double x) 

{ 

return (x * x): 

} 

double atan2d( double numcr, double denom) 

{ 

if( (numcr == 0.) && (denom == 0.) ) return(0.): 
ret urn (atan2 (numcr .denom) * 1 80. /M_PI) ; 


int FormPullFilcName( char *fullnamc, int len. char *namc, char *cxt) 
int i j; 

int lenofname, lenofext; 
i = j = 0; 

lenofname = strlcn(namc); 
lenofext = strlcn(cxt): 

if((lcnofnamc+lcnofcxt+2)>lcn) return FILENAME STORAGE TOO.SMALL- 
sprintf(fullnamc, M '/,s .‘/.s M , name, ext): " " 

return SUCCESS: 

} 
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Documentation Date: 3/12/95 


9.1 Generate 2D plot 

The routines in this file generate a 2D plot. 

New Data Types: 

typedef struct long minx, maxx, miny, maxy, majxtic, majytic, minxtic, 
minytic; int DefaultFontAndColor;/*Set true to take defaults*/ char Font- 
File[100], FontName[100]; int BackColor,BorderColor,TextColor,LabelColor; 
GraphData; 

Definitions: 

1. FONTJFILE - ’’tmsrb.fon” the name of the font for axis labels. I think 
the way this works is the font file gives the character shapes then the font 
name t’tms rmn’hl2w6b gives the size. Check the MSC documentation, 
I believe there is an environment variable C searches for the font files. 
If you cannot find the proper environment variable to set then copy the 
font file you need into the main program’s directory. If the program 
cannot find the font file you specify it will print the message "Couldn’t 
register the font.” If it cannot find the font inside the font file it prints 
’’Couldn’t set the font.” 

2. POINTS - 0 indicates that points are to be drawn. 

3. LINES - 1 indicates that lines are to be drawn. 

4. Colors for the plot: 

(a) PLOT-BLACK - 0 

(b) PLOT_DARK_BLUE - 1 

(c) PLOTJ)ARK_GREEN - 2 

(d) PLOT.TURQ - 3 
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(e) PLOT JD ARKJIED - 4 

(f) PLOT_DARK_PURPLE - 5 

(g) PLOT_BROWN -6 

(h) PLOT-LIGHT.GRAY - 7 

(i) PLOT -DARK.GRAY - 8 

(j) PLOTXT-BLUE - 9 

(k) PLOTXIGHT.GREEN - 10 

(l) PLOT-CYAN - 11 

(m) PLOTXIGHTJIED - 12 

(n) PLOTXIGHT.PURPLE - 13 

(o) PLOT.YELLOW - 14 

(p) PLOT-WHITE - 15 
5. Default values: 

(a) DEFAULT JFONT ’’t’tms rmn'hl2w6b" 

(b) DEFAULT X ACK - PLOT-BLACK 

(c) DEFAULT -BORDER - PLOTXIGHT-GRAY 

(d) DEFAULT-TEXT - PLOT-CYAN 

(e) DEFAULT X ABEL - PLOT.YELLOW 


9-1.1 Header File Listing: 

#ifndef PLOTDATA.H 
# define PLOTDATA_H 
/ * Colors*/ 

#define PLOT_BLACK 0 
#define PLOTDARK.BLUE 1 
#define PLOT_DARK_GREEN 2 
#define PLOT.TURQ 3 
#define PLOT_DARK_RED 4 
# define PLOT_DARK_PURPLE 5 
#define PLOT.BROWN 6 
#define PLOT.LIGHT.GRAY 7 
#define PLOT_DARK_GRAY 8 
#define PLOT_LT_BLUE 9 
#define PLOT_LIGHT_GREEN 10 
#define PLOT_CYAN 1 1 
#deflne PLOT_LIGHT_RED 12 
#define PLOT_LIGHT_PURPLE 13 
#define PLOT.YELLOW 14 
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#deflne PLOT.WHITE 15 
typedef struct { 

long mmx, maxx, miny, maxy, majxtic, majytic. minxtic. minytic- 
mt DcfaultFont AndColor;/ *Set true to take defaults*/ 
char FontFilcflOO], FontNamc[100]; 

int BackColor,BordcrColor,TcxtColor.LabclColor 

}GraphData: 

/ * Default values */ 

#define DEFAULT.FONT "t'tos rmn’hl 2 w 6 b" 

#define DEFAULT.BACK PLOT BLACK 
#define DEFAULT.BORDER PLOT LIGHT GRAY 
#define DEFAULT.TEXT PLOT CYAN 
# define DEFAULT.LABEL PLOT_ YELLOW 
/* There are two types of plots POINTS and LINES*/ 

#define POINTS 0 
#deflne LINES 1 
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void SctupGraph( GraphData *graphdata )• 

void QuitPlot ( void ); 40 

void P,0t( ,on » !td “ te 0- I°ngydataO, in« numpts, int plotjypc, int color 

void Plot VcrticalLinc ( long x, int color)- 

void Erase VcrticalLinc( long x, long y int ycolor): 

#endif 
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9.2 Function: Plot modified from a program 
Written by Roy Chancellor. 

Documentation Date: 3/12/95 

Prototypes: 

void SetupGraphC GraphData *graphdata ); 
void quitPlot ( void ) ; 

int'colr'jf l0 ” g l0ag ydataC1 ’ lat plot-type, 

void PlotVerticalLineClong x, int color)- 
void EraseVerticalLinedoog x. long y, int ycolor) ■ 

Source File: plot.c 3 J 

Type of Function: User Callable 

<*«*> <" 

Description: 

There are several user callable routines in this file. This has only been used on 

S\ GA computers running DOS 6.0 and above. The callable routines folio* 

L anTr Ve MK alLine ' ^ Wntme 6raSeS a VerticaJ line - k * very slow 
and cou i d be improved. The Iine ig Iocated at a giyen x ^ ^ 

ue is an attempt to indicate where a curve’s data point is located 7 
The routine plots a single point at x,y in the specified color. This is an 
attempt to redraw the figure. It doesn’t work well. 

2 ' Itae'extaS 116 '.P*? a V6rtiCal line “ * usill S s P ecified colOT - The 
line extends from the plot minimum to plot maximum. 

3. Plot - Plots num.pts points in specified color as either a line craoh or 
point graph. The data is located in xdata and ydata. 

4. QuitPlot - Resets the video mode into text mode. 

o. SetupGraph - Lses the specified GraphData to establish the font, colors 

See me d mitS ' The . ffra f phics video mode is ^t to -VRES 1 6COLOR ' 

See MSC documentation for an explanation of this definition. 

9.2.1 Program Listing: 


MODULE: 


PLOT.C 



****** 


F 

CREATED BY: ROY CHANCELLOR 



9.2. FUNCTION: PLOT MODIFIED FROM A PROGRAM WRITTEN BY ROY CHANCE1 


* 

* 

* 

* 

* 

* 

* 

* 


* 

* 


DATE CREATED: 10-27-93 * 

* 

DATE LAST MODIFIED : 10-27-93 

6-30-94 L. Everett - Added support for 
multiple graphs * 


VERSION: 


LOO 


This program creates a graph on the screen and plots (x f y) points on * 
the screen . The data points are passed to the plotting subroutine * 
as integer arrays. Tthe user must also pass the number of data 
points in the arrays and whether to draw lines between consecutive * 
points or just plot the points individually . A sample function call * 
would look like the following * 

* 

plot_data( xdata y ydata f 1000 , 1 ); (1 = lines , 0 = points) 

* 

This program must be linked with histogrm.obj and the main program 
which calls it. For the two calls to setup _graph in this routine , * 

the file names must be changed to whatever you are using. 
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/ * Header Files... 
#include <stdio.h> 
#include <graph.h> 
#include <conio.h> 
#include <proccss.h> 


7 


*************/ 
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#define TRUE 1 


#include "plot .h M 
#include " datatype. h" 
#include "misc.h" 


/ *The following are local definitions and prototypes* f 
struct axis data 


{ 


double lx; 
double hx; 
double ly; 
double hy; 
int ntx; 
int nty; 
int nmtx; 
int nmty; 


/ * low value of x axis data *f 
/ * high value of x axis data */ 
/ * low value of y axis data */ 
j * high value of y axis data */ 
/ * major x ticks */ 

/ * major y ticks */ 

/* minor x ticks */ 
j * minor y ticks */ 
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int back_color; / * background color */ 
int bordcr_color; j * border color * / 

int tcxt_color; / * text color */ 

int labcl_color; j * axis label color */ 


/ * Function Prototypes . . . 

void gct_graph data( struct axis.data *a, GraphData Vaphdata )■ 
void font_stuff( char *Font, char *FontFilc): ’ 

void sct_modc_and_rcctanglc( struct axis.data ): 
void draw_graph_axcs ( struct axis data )~ 
void PlotErrorExit( char ^message" int cxitvaluc): 

static struct axis_data xy; 

j* **************** 

void Erase Vert icalL inc ( long x, long y, int ycolor) 

long xx[l],yy[l] ; 

I * Erase the line*/ 

PlotVcrticalLinc(x,xy.back_color); 

/* Draw tics*/ 
draw_graph_axcs ( xy ); 
xx[0]=x; 

if(x == ( long)xy.lx) { 

PlotVcrticalLinc(x.xy.bordcr_color): 

else if(x == ( long)xy.hx){ 

Plot Vert icalLinc(x.xy.bordcr_color): 

else{ 

yy[o]=0: 

/* Draw point on xaxis*/ 

Plot(xx.yy,l, POINTS .xy.bordcr color): 
yy[0]=( long) xy.hy; 

/* Draw point on upper border */ 

Plot (xx.yy.l, POINTS .xy.bordcr_color); 

/ *Draw plot point*/ 

yy[o]=y; 

Plot(xx,yy4.POINTS, ycolor); 
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void PlotVcrticalLinc( long xx, int color) 



9.2. FUNCTION: PLOT MODIFIED FROM A PROGRAM WRITTEN BY ROY CHANCEL 

long x[2],y[2]; 
x[0] = x[l] = ( long) xx; 

y[0] = ( long) xy.ly; 100 

yflj = ( long) xy.hy; 

Plot(x,y, 2 , LINES, color); 


^void Plot( long xdataQ, long ydataf], int munjrts, int plot.typc, int color 

( 

int i: 

double tx, ty: 

no 


_sctcolor( color ); 
switch( plot type ) 

{ 

case POINTS: 

for( i = 0; i < num_pts; ++i ){ 

tx = min( max(( double)xdata[i], xy.lx) .xy.hx): 
ty = min( raax(( double)ydata[i], xy.ly) , xy.hy): 
_sctpixcl w( tx, ty ): 

} 

break; 
case LINES: 

tx = min( max(( double)xdata[0j, xy.lx) , xy.hx): 
ty = min( max(( double)ydata[0], xy.ly) , xy.hy): 
_movcto_w( tx, ty ); 
for( i = 1; i < num_pts; -H-i ) 

tx = min( max(( double)xdata[i] ? xy,bc) ,xy.hx): 
ty = min( max(( double)ydata[i],xy.ly) , xy.hy): 
Jincto w( tx, ty ): 

} 

break; 

} /* end switch */ 

} / * end plot^data */ 
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void QuitPlot ( void ) 

_sctvidcomodc(_DEFAULTMODEV 

\ /! 140 


{ 


void font_stufF( char *Font, char *FontFilc) 




****++/ 
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if( _rcgistcrfonts( FontFilc ) < 0 )PlotErrorExit( M \n\n Couldn't Register The 
Font. M ,10); 

if( .sctfont( Font ) < 0 ) PlotErrorExit( M \n\n Couldn't Set The Font. 'Ml): 
} f* end font_stuff *f 
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void PlotErrorExit( char ^message, int exit value) 

{ 

_sctvidcomodc( .DEFAULTMODE ); 
gprintandwait (message); 
cxit( exit value ); 

} 

j ************************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 

* 

* 

* 

* 

* 

* 

* 


MODULE: HISTOGRM.C * 

* 

CREATED BY: ROY CHANCELLOR * 

* 

DATE CREATED: 10-27-93 * 

* 

DATE LAST MODIFIED: 10-27-93 * 

* 

VERSION: 1.00 * 

* 

This program sets up the graphs for all programs. * 

* 

The axis limits , number of major tick marks , and number of minor 
tick marks are stored in an ASCII file. The filename including 
drivc t directory , and filename must be passed to this program. 

For example , this subroutine may be called as * 

setupjjraphf ,f c:\\directory\\filename.ext' f ); * 

* this must be a \\ and not a \ * 

To use this routine in another program it must first be compiled and * 
then linked into the main program. It will work with all memory 
models. Also , the FONT_FILE definition must be changed to the 
actual location of the font file. * 

* 
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* 

* 

* 


* 

* 

180 


************************** f**********************^^*^^^^ 


************/ 


void SctupGraph( GraphData *graphdata ) 

{ 

/ * set up the fonted text outputs... * J 

if(graphdata- > DcfaultFont AndColor) { 

font_stuff( DEFAULT JK)NT.FONT_FILE) ; 
xy.back.color = DEFAULT.BACK; 

xy.bordcr_color = DEFAULT_BORDER; 

xy.tcxt_color = DEFAULT_TEXT: 

xy.labcl.color = DEFAULT.LABEL; 
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} 

else { 

font_stuff( graphdata— > Font Name. graphdata—> Font File); 
xy.back.color = graphdata- >BackColor; 

xy.bordcr_color = graphdata- >BordcrColor: 
xy.tcxt_color = graphdata- >TcxtColor: 

xy.labcl_color = graphdata ->LabclColor: 

/ * get the axis limits from file... * j 

gct_graph_data( Sexy, graphdata ); 

/* Setup the colors for background, labels, border, and ticks... 

/* set the videomode and draw the border... */ 

set jnodc_and _rcctanglc ( xy ): 

/* draw LINEAR— LINEAR graph axes ... *j 

draw_graph_axcs( xy ); 

/* Set the color to the background color for other programs to read... 
_sctcolor( xy.back_color ); 

} f * end setup jjraph */ 


200 


V 


7 


210 





^void gct_graph_data( struct axis.data *xy. GraphData *graphdata ) 

xy->lx = graphdata- >minx; 
xy~>hx =- graphdata- >maxx; 
xy - >ly = graphdata— >miny; 
xy— >hy = graphdata— >maxy; 
xy— >ntx= ( int) graphdata— >majxtic: 
xy— >nty= ( int) graphdata- >majytic; 
xy->nmtx= ( int) graphdata- >minxtic: 
xy->nmty= ( int) graphdata— >minytic: 

} / * end get_graph_data */ 



void draw_graph_axcs( struct axis.data xy ) 


char numjab[10]; 
int i; 

double dcltax. dcltay. xrangc, yrangc, xpos. ypos, xmpos. ympos 
struct xycoord view: 

/ double xlo , xhi, ylo f yhi f low_tickjy f low^tickjx; 

int i, nmtx, nmty, num_timcs_x, numjtimes y: 
strict xycoord view , phys;*f 


dcltax = ( xy.hx - xy.lx ) / xy.ntx; 
xrangc = xy.hx - xy.lx; 
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dcltay = ( xy.hy - xy.ly ) / xy.nty; 240 

yrangc = xy.hy - xy.ly; 

/ * Make The X AXIS Ticks, Minor ticks, and Number Labels ******/ 

/ * MAJOR TICKS HERE... */ 

for( i = 0; i <= xy.ntx: ++i ) 

{ 

_sctcolor( xy.bordcr_color ); 
xpos = xy.lx + i * dcltax; 

_movcto_w( xpos, xy.ly ); 250 

_lincto_w( xpos, xy.ly + .025 * yrangc ); 

_movcto_w( xpos, xy.hy ); 

_lincto_w( xpos, xy.hy - .025 * yrangc ); 


_sctcolor( xy.labcl_color ); 
sprintf( nnmjab, "7,.01f ", xpos ); 
view = _gctvicwcoord_w( xpos, xy.ly ).; 

_movcto( vicw.xcoord - 6/ *16*/, vicw.ycoord + 9 ); 

_outgtcxt( numjab ); 

} f* end for*/ 260 

_sctcolor( xy.bordcr_color ); 

/* MINOR TICKS HERE... */ 

for( i = 0; i <= xy.ntx * xy.nmtx; ++i ) 

{ 

xmpos = xy.lx + i ¥ dcltax / xy.nmtx; 

_movcto_w( xmpos, xy.ly ); 

_lincto_w( xmpos, xy.ly + .01 * yrangc ); 

_movcto_w( xmpos, xy.hy ); 

_lincto_w( xmpos, xy.hy - .01 * yrangc ): 270 

} /* end for*/ 

/ ************** Make The Y AXIS Ticks, Minor ticks, and Number Labels******/ 

/ * MAJOR TICKS HERE... */ 

for( i = 0; i <= xy.nty: ++i ) 

{ 

ypos = xy.ly + i * dcltay; 

_sctcolor( xy.bordcr_color ); 

_movcto_w( xy.lx, ypos ); 280 

_lincto_w( xy.lx + .02 * xrangc, ypos ); 

_movcto_w( xy.hx, ypos ); 

_lincto_w( xy.hx - .02 * xrangc, ypos ); 
sprintf( numjab, '"/,.01f ", ypos ); 

_sctcolor( xy.labcl_color ); 

view = _gctvicwcoord_w( xy.lx, ypos ); 
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_movcto( vicw.xcoord — 60/ *49*/, vicw.ycoord - 5 ); 

_outgtcxt( numjab ); 

} /* end for */ 

290 

_sctcolor( xy.bordcr_color ); 

/ * MINOR TICKS HERE. . . */ 

for( i = 0: i <= xy.nty * xy.nmty; -H-i ) 

{ 

ympos = xy.Iy + i * dcltay / xy.nmty; 

_movcto_w( xy.lx, ympos ); 

Jinctojv( xy.lx + .01 * xrangc, ympos ); 

_movcto_w( xy.hx, ympos ); 

Jincto_w( xy.hx — .01 * xrangc, ympos ); 

} / * end for *f 300 

} f* end draw _graph_axcs */ 

void set mode and rcctanglc( struct axis data xy ) 

{ 

double xrangc, yrangc, xlo, xhi, ylo, yhi; 


_sctvidcomodc( _VRES16COLOR ); 

310 

xrangc = xy.hx — xy.lx; 
yrangc = xy.hy - xy.Iy; 
xlo — xy.lx — 0.2 * xrangc; 
ylo = xy.Iy — 0,3 * yrangc; 
xhi = xy.hx + 0.2 * xrangc; 
yhi = xy.hy + 0.2 * yrangc; 

/* create a window for plotting real data ... *j 

_sctwindow( TRUE, xlo, ylo, xhi, yhi ); 

_sctcolor( xy.bordcr_color ); 320 

j* draw a rectangle for the graph border ... *f 

_rcctanglc_w( _GBORDER, xy.lx, xy.Iy, xy.hx, xy.hy ); 

} f * end setjnodejandjroctangle */ 
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Chapter 10 


pose.c, pose.h 


Documentation Date: 3/10/95 

10.1 Determining Pose 

The routines in this file convert blob data into a pose. They also convert from 
one coordinate system into another. 

New Data Types: 

None. 

Definitions: 

• Missing - an internal operator to test if a retro is missing. 

• CAMERAASPECT = 1.266 

10.1.1 Header File Listing: 

#ifndef POSE_H 
#define POSE.H 

/ * The following computes a pose for the target */ 

/* The pose and rawpose arc defined via Redficld’s convention */ 

void GctPosc(Targct *targct, Transform *trans. Bloblds *ids. RawPosc *raw. 
Pose *posc); 

/ * The following may not work when yaw and pitch are out of hound */ 
void Transf ormP osc ( Pose *from, Pose *to, Transform -“transform): 

#endif 
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10.2 Function: GetPose 

Documentation Date: 3/12/95 
Prototypes: 

void GetPose (Target *target, Transform *trans, Bloblds *ids, RawPose 
♦raw. Pose *pose, Parameters param) 

Source File: pose.c 

Type of Function: User Callable 

Header Files Used in pose.c: <math.h> <string.h> ’’datatype.h” ”misc.h n 
’’pose.h” 

Description: 

This routine computes the Pose and Rawpose. Pose is the x, y, range, pitch, 
yaw and roll of the target relative to the camera measured in inches and 
degrees. I think the x is range positive away from the camera. The +y is to 
the horizontal right on the monitor, the +z is vertical down. The rawpose 
is pose measured in pixel values. 1 The raw x, y (column, row), roll, range 
coordinates are based on the right and left retro location. If either right or left 
is missing, the top and bottom are used. Since only one retro can be missing (if 
more are gone this routine should not be called) either the right/left pair or the 
top/bottom pair will be present. The 0,0 is at the row and column specified in 
the parameters data structure (VideoCenterRow, VideoCenterCol) . Of course 
parameter's row and column are measured from the lower left monitor corner. 

If the LED is missing, the routine returns pitch and yaw of 180 degrees and 
the raw pitch and yaw is set to BAD_PITCH_YAW. 


10.3 Fiinction: TransformPose 

Documentation Date: 6/27/94 


Prototypes: 

void TransformPose (Pose *from, Pose *to, Transform *transform) 
double 0neRow(Pose *pose, int t [6] ) ; 

Source File: pose.c 

Type of Function: TransformPose is user callable, OneRow is internal. 

Header Files Used in pose.c: <math.h> <string.h> ” datatype.h ” ”misc h” 
” pose.h ” 


1 Actually range is in an odd unit, and roll is in degrees. 
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Description: 

TransformPose performs a coordinate transformation. Actually this is a dumb 
method for doing this. This should be converted to use 4 by 4 homogenious 
matrices. The transformation matrix” is a 6 by 6 matrix which premultiplies 
pose to get a new pose. Since it has never really been used, I don’t trust it. 

OneRow is simply multiplies a 1 by 6 vector by a 6 by 1 pose. 

10.3.1 Program Listing: 

/ *Makc sure camera parameters are correct 
rl = 1270097.; 
r2 = 1.; 
h = 2.361E-4; 
v = -1.858E-4; 
p = 1.927E-4; 
y = 2. 423 E— 4; 

7 

#include <math.h> 

#include <string.h> o 

#include "datatype. h" 

#include "misc.h" 

#include "pose.h" 

#define Missing <0 

/ /STS— 62 target width/height (11.75"/74.75"), Charlotte (4.2"/3") 

#define CAMERAASPECT 1.266 

/ *This routine computes the Pose and Rawpose (basically the 
Pose in pixels) given the target ( blob locations) .*/ 2 o 

void GctPosc (Target target. Transform *trans, Bloblds *ids, RawPosc *raw. Pose 
’"pose. Parameters param) 

{ 

double dx, dy, yaw, pitch, range ,horiz, vert; 
double TargctAspcct; 

Target Aspcct=trans—>TargctWidth/trans—>TargctHcight: 

/ *The raw x, y ( column, row) coordinates are based on the right and 
left retro location, if they are missing use the top and bottom. Since 
only one retro can be missing, right & left or top and bottom will be 
there, mx is the x or column position, my is the y or row position. 0,0 30 

is center of the monitor. dx f dy are used in range. *f 
if( (ids >lcft Missing) |j (ids— >right Missing) ){ 

raw— >mx = (targct->toprctro.ccntx+targct->bottomrctro.ccntx)/2 - ( double)param.Vid 
raw— >my = (target- >toprctro.ccnty-t-targct->bottomrctro.ccnty)/2 - ( doublejparam.Vid. 
dx — target— >toprctro.ccntx — target— >bottomrctro.ccntx: 
dy = (target— >bottomrctro.ccnty - targct->toprctro.ccnty)/trans->CamcraAspcct; 
raw— >d = TargctAspcct* sqrt(dx*dx + dy*dy): 
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raw— >roll = atan2d(dy,dx); 
else{ 

raw— >mx = (targct->lcftrctro.centx+targct->rightrctro.ccntx)/2 - ( double)param VidcoCcr 

^ W = JL-LT* > lc ft retro . ccnty+ target — >rightrctro. ccnty ) /2 - ( double)param.VidcoCa 
target >lcftrctro.ccntx — target— >rightrctro.ccntx' 

raw— >roll = atan2d(dx,dy); 

/*Now convert the raw information into real units using the camera 
lens parameters*/ 

range = trans->TargctWidth’ i ‘trans->Foca]Lcngth/raw->d- 

/ /FoealLength in pixels 

horiz = raw— > mx/ trans — > FoealLength *rangc; 

vert = raw->my/trans->CamcraAspcct/trans->FocalLcngth*rangc' 

if(targct->num_of_lcd != 1 ){ 6 8 ’ . 

pitch = 180.: 
yaw = 180.: 

raw— >lcdx = BAD_PITCH_YAW; 
raw— >lcdy = BAD PITCH YAW- 

} ’ 
else { 

raw— >lcdx = targct->lcd.ccntx - ( double) param.VidcoCcntcrCol: 
raw >lcdy - target -> led. ccnty - ( double) param.VidcoCcntcrRow: 

pitchy— atan2d(raw->lcdy/trans->CamcraAspcct/trans->FocalLcngth. 1.0): 

yaw — atan2d(raw->lcdx/trans->FocalLcngth. 1.0): 

raw— >roll = raw— >roll + 90.: ° 

pose— >y = horiz; 
pose— >z — - —vert: 
posc->x = range; 
pose— >yaw = yaw; 
posc->pitch = pitch; 
pose— >roll = raw— >roll: 

} 
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/ *77ie following routine performs a coordinate transformation Actually 
this is a dumb method for doing this. This should be converted to use J 
by 4 homogemous matrices. The transformation ” matrix ” is a 6 by 6 
matrix which is premultiplied by pose to get a new pose. Since it has 
never really been used, I don’t trust it */ 

J * ’ 80 

double OncRowfPose *pose, int t[6j); 

void Tra n sfo rmPo se( Pose *from, Pose *to, Transform * transform, ) 
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to—>x = OneRow(from,transform—>tx); 
to—>y = OneRow(from,transform—>ty); 
to->z= OncRow( from, transform- > tz) ; 

if (from— > yaw == BA D_PITCH_ YAW)to—> yaw = BAD PITCH YAW- 
else to— > yaw = OneRow(from,transform->tyaw)- ' ’ 

*f(from— > pitch == BAD_PITCH_YAW)to->pitch = BAD PITCH YAW- 
esc to > pitch - OneRow( from, transform-> tpitch)- 
to->roll = OneRow(from,transform-> troll); 

double OncRowfPosc *pose, int t[6j) 

return (double) t[Oj*pose->x + (double) t[l]*pose-> v + ( double) tfol* 

+ { Ue> W'WX*" + <*oMc) 'U/'p°sc->pi,c h + (double) fc,; 

7 


90 


100 
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Chapter 11 

qtarga8.c, qtarga8.h 


Documentation Date: 3/9/9 


11.1 Hardware Control of TARGA - Inter- 
rupt Drive 

The routines in this file are low level TARGA specific functions. These routines 
were written by Mr. Qin (QIN@mentor.cc.purdue.edu). The actual qtarga8 c 
file contains several pieces of code that are the same as found in targa8.c. This 

ocumentation includes only the pieces of code that are DIFFERENT from 
that in targa8.c. 

New Data Types: 

See Targa8 Documentation. 

Definitions: See Targa8 Documentation. 


11.2 Function: Global Targa Interrupt Rou- 
tines 

Documentation Date: 3/9/95 
Prototypes: 

void GrabEightFrames_ForSync (void); 

void ResyncF ieldCount ( int FirstBrightField) ; 

void GrabOnOff Frame (); 

int Live_Video(); 

void liveoverlayCint page); 

Source File: qtarga8.c 

Type of Function: User Callable 

Header Files Used in qtarga8.c: <conio.h> ’’stdinc.fi” ”ifc.h” 
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Description: 

CaI , lable r0Ud f " ‘ hi3 MC ' The ,at <? a board is capable 
generating an interrupt on vertical retrace. These routine <+ • * 

S“ d vi tx c : unt of which t is — * 

on or off. 9 SyDC PU S6 ' thlS alI ° WS US t0 tel1 whethe r ^e leds are 

L S: b ffr ta TT: J ° rSynC ■ Th k iS r tine mUS * be calkd “ -quire the 
, y ' ^ program grabs 8 images and sets the frame counter 

properly. Once you determine which image is the on yon reset the counter 

2. ResyncFieldCount - Once you know which of the 8 frames from f,r«hF,„k. 

brisit fie,d> you this routine - - L 

3 o^ZZ;^ ^trr2 b ^S“y DOD ’° fftto 

4. Live-Video - This is a modification of the Live-Video in tanra8 e 
are some problems where routines clear the interrupt enXtit Th 
routine works properly with interrupts whereas the one in targaS.c doesn't. 

Interrupt 5 ' Th ' S " * rePa ' r ° f ' he r0Utine in tar S a8 - c that supports 


11.2.1 Program Listing: 

iZnl Z d J« , ° Ped H Q WC i0 UK * «”• u^/erence purposes only.'/ 
/ Unly the differences m targa8.c are shown*/ * 

# include <conio.h> 

#include "stdinc.h" 

# include "ifc.h" 


l***************************^^^,^^ 

* G ra b_Eigh t_ Fra m c * 

*******************^***tt*0t****0*t**/ 
void GrabEightFramcs ForSync ( void) 

{ 10 
/* Turn off interrupt */ 

Jnp (0x222): 

_ outp (0x220+0xc00, inp(0x220+0x402) & Oxbf)- 
_outp (0x220+0x401, 0x90): 

_outp (0x220+0xc00, inp (0x220+0x402) I 0x40): 

_ outp (0x220+0xc02, inp(0x220+0xc02) & 0x3f); 

_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf)- 
_inp (0x222): ' 
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sct_pagc (0, DISPLAY.LIVE); 
FicldGrab(&currRcgs ,0) ; 

GrabNcxtFicldQ; 

sct_pagc (1, DISPLAY.LIVE); 
GrabNcxtFicld() ; 

GrabN cxtFicld ( ) ; 

sct_pagc (2, DISPLAY.LIVE); 
GrabNcxtFicld(); 

GrabNcxtFicldQ; 

setjjage (3, DISPLAY.LIVE); 

GrabNcxtFicld( ) ; 

GrabNcxtFicldQ; 

sct_pagc (4. DISPLAY.LIVE); 
GrabNcxtFicldQ; 

Grab N ext Field () ; 

sct_pagc (5, DISPLAY.LIVE): 
GrabNcxtFicld(); 

GrabNcxtFicld(); 

sct_pagc (6. DISPLAY.LIVE): 
GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

setjjage (7, DISPLAY.LIVE); 

Grab N ext Field () ; 

GrabNcxtFicldQ; 

/* Turn on interrupt */ 

_inp (0x222); 

_outp (0x220+0xc00, inp (0x220+0x402) & Oxbf); 
_outp (0x220+0x401, 0x90); 

_outp (0x220+0xc00, inp (0x220+0x402) | 0x40); 
_outp (0x220+0xc02, inp(0x220+0xc02) | OxcO); 
_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf); 
_inp (0x222); 

reset field count (): 

} 

void RcsyncFicldCount( int FirstBrightFicld) 
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while (ficld_count_is() != FirstBrightFicld): 
rcsct_ficld count (): 

} 

70 

void GrabOnOffFramc ( ) 
unsigned char rList[] = {DISPMODE, 0}; 
while (ficld_count_is() != 15): 


currRcgs.dispModc = 1: 
WritcSctf&currRcgs, rList); 


/* 


Put Targa board in Live mode */ 

/ It need to be in Live mode to capture 


7 


/ * Turn off interrupt */ 

Jnp (0x222); 

_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf): 
_outp (0x220+0x401, 0x90); 

_outp (0x220+0xc00, inp(0x220+0x402) | 0x40): 
_outp (0x220+0xc02, inp(0x220+0xc02) & 0x3f); 
_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf): 
_inp(0x222); 


sct_pagc (1, DISPL AY_LIVE) ; 

FicldGrab(&currRcgs,0); 

GrabNcxtFicld(); 


rirst LED On frame is in memory 


sct_pagc (2. DISPL AY.LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicld(); 


I* LED Off frame is in memory 2 */ 


GrabNcxtFicldQ; 

GrabNcxtFicldQ; 


sct_pagc (3, DISPLAY_LIVE): 

GrabNcxtFicldQ; 

GrabNcxtFicldQ: 


Second LED On frame is in memory 3 


GrabNcxtFicldQ; 

GrabNcxtFicldQ; 


set_pagc (4. DISPL AY.LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

Grab N ext Field () ; 
GrabNcxtFicldQ; 
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GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

/* Turn on interrupt */ 
jnp (0x222); 

_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf): 
_outp (0x220+0x401, 0x90): 

_outp (0x220+0xc00, inp(0x220+0x402) | 0x40): 
_outp (0x220+0xc02, inp(0x220+0xc02) | OxcO): 
_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf)- 
Jnp (0x222); 


} 

/ ************************ 

* Live_ Video * 

* Initialize Vision system * 

** **************************************** f 

int Live VidcoQ 

{ 

unsigned char rListQ = {DISPMODE, 0}; 

currRcgs.dispModc = 1; 

WritcSct(&currRcgs, rList); 
return SUCCESS; 


/ *Turn on live overlay */ 
void livcovcrlay( int page) 


unsigned char rList[] = {DISPMODE, 0}; 

Show_Proccss_Imagc(pagc); 
currRcgs.dispModc = 2; 

WritcSct(&currRcgs, rList); 
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Chapter 12 
roi.c, roi.h 


Documentation Date: 3/9/95 

12.1 Defining Rectangular Region Of Inter- 
est 

The routines in this file draw a rectangle on the cpu monitor and compute 
statistics of the image contained inside the rectangle. It will also highlight the 
pixels with intensity between two specified limits. 

New Data Types: 

ALineOfPixels is defined, see the listing. 

Definitions: 

• DIVIDEBY = 2 - Amount to divide by if images are subtracted. 

• ADD sr 129 - Amount to add on after dividing. 

12.1.1 Header File Listing: 

#ifndef ROI.H 
#define ROI.H 

void ShowPixclsInHistogram(ROI roi, int Bright, int Dim, int SccondBright. 
int StoragcPagc, int WorkingPagc): void DcfincROI(ROI *roi, int page, int ’‘increment) : 
void DcfincROIandComputc( int page): 

#endif 
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12.2 Function: Show Pixels In Histogram 

Documentation Date: 3/9/95 


Prototypes: 

void ShowPixelsInHistogram(ROI roi, int Bright, int Dim, int SecondBright, 
int StoragePage, int WorkingPage) ; void Def ineR0I(R0I *roi, int page, 
int *increraent); 

Source File: roi.c 

Type of Function: User Callable 

Header Files Used in roi.c: <float.h> <stdio.h> <graph.h> <string.h> 

<como.h> <time.h> <math.h> <ctype.h> ’’datatype.h” ”roi h” ”TARGA8h” 

” TARGET. h” ’’PLOT.h” ’’MISC.h” ”DIP.h ” 


Description: 

This routine draws a histogram of an image then prompts you for a lower 
and upper limit. It draws colored lines on the histogram denoting these limits 
then on the image display it sets all pixels between the limits to 255 (white) 
and those outside the limit to 0 (black). It will tell you how many pixels lie 
between the limits. If the lower and upper limits are equal, it tells you how 
many pixels have the intensity level equal to the limit. It has the ability to 
use an ROI defined for the image but this has not been tested. If Bright, 
Dim and SecondBright are greater than -1, a double subtract is performed. If 
Bright and Dim are greater than -1, a single subtract is used. If only Bright 
is greater than -1, no subtraction is used. The image buffers StoragePage and 
WorkingPage are temporary image storage. The image in StoragePage and 
W r orkingPage will be wiped out. 


12.3 Function: Define ROI and Compute 

Documentation Date: 3/9/95 


Prototypes: 

void Def ineROIandCompute ( int page); 

Source File: roi.c 

Type of Function: User Callable 

Header Files Used in roi.c: <float.h> <stdio.h> <graph.h> <string.h> 

<conio.h> <time.h> <math.h> <ctype.h> ’’datatype.h” ”roi h” ’’TARGA8 h” 
’’TARGET.h” ’’PLOT.h” ’’MISC.h” ’’DIP.h” 
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Description: 

This routine allows the user to define a rectangle on the image screen then it 
returns some statistics on the pixels inside the rectangle. 

12.3.1 Program Listing: 

# include < float.h> 

#include <stdio.h> 

# include <graph.h> 

# include <string.h> 

#include <conio.h> 

#include <timc.h> 

#include <math.h> 

# include <ctypc.h> 

#include "datatype. h" 

#include "roi.h" 

#include "TARGA8.h" 

#include "TARGET. h" 

#include "PLOT.h" 

#include "MISC.h" 

#include "DIP.h" 

#if IMAGEHEIGHT > IMAGEWIDTH 
typedef struct { 
int start, end: 

Pixel pixcl[IMAGEHEIGHT]; 

}ALincOfPixcls; ‘ U 

#else 

typedef struct{ 

int start, end; 

Pixel pixcl[IMAGEWIDTH]; 

}ALincOfPixcls; 

#endif 

ALincOfPixcls thclinc; 

void ContrastRcctanglc( int x, int y, int width, int height, int page): 30 

void DisplayRcctanglcStats(ROI *roi, int increment); 

void MovcRcctanglc( int fx, int fy, int fwidth, int fheight, int tx. int ty. 
int twidth, int theight, int page): 

void RcstorcRcctanglc( int x, int y, int width, int height, int page): 
void RcstorcHorizonalLinc( ALincOfPixcls line, int y, int page); 

void ContrastHorizontalLinc(ALincOfPixcls *linc, int x, int y int width int 
page): 

void MovcHorizontalLincPromTo( int fx, int fy, int tx, int ty. int width int 
page, ALincOfPixcls line); 

void Contrast VcrticalLinc(ALincOfPixcls *linc, int x, int y, int height, int 40 
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page): 

void RcstorcVcrticalLinc(ALincOfPixcls line, int x, int page): 
void MovcVcrtialLincFromTo( int fx, int fy, int tx. int ty, int height, int page. 
ALincOfPixcls line); 1 ° 

void CopyRoi(ROI *from. ROI *to); 


# define DIVIDEBY 2 
#define ADD 129 

50 

void ShowPixclsInHistogram(ROI roi, int Bright, int Dim, int SccondBright, int 
StoragePage. int WorkingPage) 

{ 

GraphData graphdata; 

FullHistogram x, y; 

Pixel low, high, oldlow, oldhigh; 
int ij; 

long number; 
char message [128]; 

ImagcLinc line; 60 

char ans; 

for(i=-PIXEL_MAX.;i<=PIXEL_MAX;i++)x[i+PIXEL_MAX]=i; 

graphdata.minx = 0: 
graphdata. maxx = PIXEL_MAX; 
graphdata, miny = YAXISMIN; 
graphdata.maxy = ( long) YAXISMAX: 
graphdata.majxtic = 8; 
graphdata.majytic = 5; 

graphdata.minxtic = 4; 70 

graphdata.minytic = 5; 
graphdata.DcfaultFontAndColor = TRUE; 

roi. resolution = 1: 

FullSubAndHistogram(Bright, Dim, SccondBright, y. roi): 

Subtract Jmages ( Bright .Dim, SccondBright , StoragePage , DIVIDEBY, ADD, roi): 
Show_Proccss_Imagc (WorkingPage) ; 

CopyFramc (StoragePage, WorkingPage); 

SctupGraph(&graphdata): 80 

Plo t (&x[PIXEL_M AX] , &y[PIXEL_MAX], FULLNUMBEROFPIXELBINS/2+1. LINES 

oldlow=0; 

oldhigh=0; 

do{ 

number = 0; 

gpromptandrcad(" Enter low range-> ", M, /,d",&low); 

ErascVcrticalLinc(( long) oldlow. y[oldlow+PIXEL_M AX], PLOT_DARK_RED): 
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90 


} 


PIotVcrticalLinc(( long) low, PLOT_YELLOW): 
oldlow=low; 

low = max (low, (Pixel) 0); 
low = min(low, (Pixel) 255); 
gpromptandrcad("Enter high range-> ","Xd",<khigh): 

ErascVcrticalLincff long) oldhigh,y[oldhigh+PIXEL_MAXl PLOT DARK RFnV 

Plot ycrticalLinc( ( long) high, PLOT_DARK_BLUE)~ 

oldhigh=high; 

high = max(high, (Pixel) 0); 
high = min(high, (Pixel) 255); 
for(i=0;i<IMAGEHEIGHT;i++){ 

GctLinc(i,StoragcPagc,linc); 

for (j=0y< IM AGEWIDTHy ++) 

if( ( line (jj >=low) && (line [j J <=high) ) { 100 

linc[j]=PIXEL_MAX; 

numbcr++; 

} 

else linc[j] = 0; 

PutLinc(i,WorkingPagc,linc); 

SSESSSXr PiXel8 ' > <S,t ° P - « <R)edraw?",nun 

ans = ( char) gctch(); 

if( (ans== ' r ' ) 1 1 (ans== 5 R ' )) { 110 

QuitPlot(); 

SctupGraph(ifegraphdata); 

PlotVcrticalLinc(( long) oldhigh, PLOT_DARK_BLUE): 

3 0 &i a ^^T=“s ) -)) C0PyFV “ I1C WorkixigPagc) ; 

QuitPlot(); 


120 


8ta ‘LT s i )rryc//cfot°!r iDTH/2 ' iMAGEHEiGHT/2!iMAGEwiDTH/2+io - iMAGEHEiGi 


void DcfincROIajidCoraputc( int page) 

int ans; 

ROI roi; 

DPixcl Brightest, Dimmest, Average, StdDcv: 
int increment; 
long NumbcrOfPixcls; 
roi.xs = roisavc.xs; 
roi.xc = roisavc.xc: 
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roi.ys = roisavc.ys; 
roi.yc = roisavc.yc; 
roi.rcsolution = roisavo.rcsolution; 
ShowJProccss_Imagc(pagc); 
increment = 10; 
do{ 


DcfincROI(&roi,pagc,&incrcmcnt); 140 

RcstorcRcctanglc(roi.xs,roi.ys,roi.xc—roi.xs.roi.yc— roi.ys page)- 

& NoIS C “ 8(Pag °' ^ r0i ’ “*“•* *“— • ^verago, iStdDev, 

ContrastRcctanglc(roi.xs, roi.ys, roi.xc—roi.xs.roi.yc— roi.ys page)' 

_clearscrccn(0); J ° ' 

_scttcxtposition(10,l); 

pr!ntf( " -!!-?_!!!!. ..!!!!!!_ Average stdDev # of pixeis ^"); 

RcstorcRcctanglc(roi.xs,roi.ys,roi.xc— roi.xs.roi.yc-roi.ys page)- 

} while(ans != 's’); 6 

roisavc.xs = roi.xs; 
roisavc.xc = roi.xe; 
roisavc.ys = roi.ys; 
roisavc.yc = roi.yc; 
roisavc. resolution = roi.rcsolution' 

} 
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void CopyRoi(ROI *from, ROI *to){ 

to— >xs = from— >xs; 

to— >ys = from— >ys; 

to— >xc = from— >xc; 

to— >yc = from— >yc; 

to— Resolution = from— Resolution; 


void DclincROI(ROI »roi. int page, int ‘oldincrcment) 

int ach.ch; 
int increment; 

ROI oldroi; 


increment = *oldincrcmcnt.' 
_clcarscrccn(0); 

.settextposition (6, 1 ) ; 

-Outtcxt(" Your options are: 

_outtcxt(" Move ROI: 

_outtcxt(" Size ROI; 

_outtcxt(" or 


\n\n M ); 

Use the Arrow Keys\n"): 

(W)ider, (N)arrower, (T)aller, (S)hort»r\n"): 
Home, End, PageUp, PageDownW); 
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_outtcxt(" Modify Increment: Increased) or DecreaseC-An")' 

_outtcxt(" Examine data: (G)et statistics of R0I\n\n\n"): 

outtcxt(" Rectangle position (x.y) = (Horz . , Vert . ) from lower left 
otatus_Mcssagc("Enter desired option->"); 

CopyRoi(roi,&oldroi); 

DisplayRcctanglcStats(roi, increment): 

do{ 

ContrastRcctanglc(roi->xs, roi->ys, roi->xc - roi->xs, roi->yc - roi->vs 
page); J 

ch = gctch(); 
eh = touppcr(ch); 
if((ch != 'G')){ 

if(ch == 0)ach = gctch(); 
else ach = ch; 
switch (ach){ 

case * + *: increment H~f; 

break; 

case increment — : 
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break; 

case 71: 
case 'W': 

case J w*: roi— >xs=roi— >xs— increment: 

roi— >xc=roi— >xc~f increment; 
break; 

case 79: 
case 'N*: 

case * n ' : roi- >xs=roi- >xs+incrcmcnt ; 

roi— >xc=roi— >xc— increment: 

break; 

case 73: 
case , T > : 

case *t } : roi— >ys=roi->ys-incrcmcnt; 

roi— >yc=roi— >yc-b increment; 

break; 

case 81: 
case *S\* 

case 's': roi— >ys=roi— >ys-fincrcmcnt; 

roi— >yc=roi->yc— increment; 

break; 

case 72: 


200 


210 


220 


roi— >ys=roi— >ys-f-incrcmcnt: 
ro i — >yc =roi —> yc-h increment ; 

break; 

case 80: 

roi— >ys=roi— >ys— increment; 
roi- >yc=roi->yc— increment; 
break; 
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case 77: 

roi— >xs=roi— >xs+incrcmcnt; 230 

roi— >xc=roi— >xc+ increment; 

break; 

case 75: 

roi— >xs=roi— >xs— increment; 
roi— >xc=roi — >xc — increment; 

break: 

} 

} 

increment = max(incrcmcnt,l); 

roi— >xs — max(0,roi— >xs); 240 

roi— >xc = min(IMAGEWIDTH,roi->xc); 

roi— >xc = max(roi— >xc,roi— >xs+l); 

roi— >ys = max(0,roi— >ys); 

roi— >yc = min(IMAGEHEIGHT,roi->yc); 

roi— >yc = max(roi— >yc,roi— >ys+l); 

Display RcctanglcS tats (roi, increment); 

RcstorcRcctanglc(oldroi.xs, oldroi.ys, oldroi.xc — oldroi.xs, oldroi.yc 
— oldroi.ys, page); 

CopyRoi(roi,&oldroi); 

} while(ch != 'G'); 250 

ContrastRcctangle(roi— >xs, roi — >ys, roi— >xc — roi— >xs, roi— >yc - roi— >ys, page); 
*oldincrcmcnt = increment: 

} 

j * Local routines below here*/ 
static ALincOfPixcls left, right, top, bottom; 

void Contrast Rcct angle ( int x, int y, int width, int height, int page) 

{ 260 

ContrastHorizontalLinc(&bottom, x, y, width, page); 

ContrastHorizontalLinc(&top, x, y+height, width, page); 

Contrast VcrticalLinc(<felcft, x, y+1, height— 2, page); 

Cent rastVcrticalLinc (bright, x+width, y+1, height— 2, page): 

} “ J 

void MovcRcct angle ( int fx, int fy, int fwidth, int fheight, int tx, int ty, 
int twidth, int theight, int page) 

{ 

RcstorcRcctanglc(fx,fy,fwidth, fheight, page); 270 

ContrastRcctanglc(tx,ty, twidth. theight, page): 

} 

void RcstorcRcctanglc( int x, int y, int width, int height, int page) 

{ 
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RcstorcVcrticalLinc(lcft, x, page); 

Restore VcrticalLinc(right, x+ width, page); 

RcstorcHorizonalLinc(top, y+height, page); 

RcstorcHorizonalLinc(bottom, y, page); 

J 280 

void RcstorcHorizonalLinc(ALincOfPixcls line, int y, int page) 
int i; 

i{( (y>— 1 ) && (y<IMAGEHEIGHT) ) for(i=linc. start ;i<linc.cnd;i++)SctAPixcl(i.y.pagc,linc.pb 

void ContrastHorizontalLinc(ALincOfPixcls *linc, int x, int y. int width, int 
page) 

l 290 

int i; 

line— >start = max(O.x): 

linc->cnd = min(IMAGEWIDTH,x+width); 

(y>— 1) && (y<IMAGEHEIGHT) ) for(i=linc— >start;i<linc— >cnd;i++){ 
line— >pixcl[i] = ContrastPixcl(i.y.pagc): 

} 

} 

void MovcHorizontalLincPromTo( int fx, int fy, int tx, int ty, int width, int 
page, ALincOfPixcls line) 300 

{ 

RcstorcHorizonalLinc(linc, fy, page); 

ContrastHorizontalLinc(&linc, tx. ty. width, page): 

} 

void Contrast VcrticalLinc(ALincOfPixcls *linc, int x, int y, int height, int 
page) 

{ 

int i; 

line— >start = max(O.y); 310 

linc->cnd = min(IMAGEHEIGHT, y+height); 

if( ( x - >— 1) (x<IMAGEWIDTH) ) for(i=linc— >start;i<linc— >cnd:iH — 1-) line— >pixcl[i] 

= ContrastPixcl(x.i.pagc): 

} 

void Restore VcrticalLinc( ALincOfPixcls line, int x, int page) 
int i; 

if( (x>— 1) (x<IMAGEWIDTH) ) for(i=linc.start;i<linc.cnd;i++)SctAPixcl(x,i, page. line. pixe 

} 320 

void MovcVcrtialLincPromTo( int fx, int fy, int tx, int ty, int height, int page, 


C-3 
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ALincOfPixcls line) 

{ 

Restore VcrticalLinc(linc,fx,pagc); 
ContrastVcrticalLinc(&linc. tx, ty, height, page): 
} 



Chapter 13 

targa8.c, targa8.h 


Documentation Date: 3/12/95 


13.1 Hardware Control of TARGA 

tWS u fi ' e Me l0W level TARGA specific functions. The idea is 
in this ffle Very ' '“ K that aCCeSS6S “ TARGA re 8 ister or TARGA written code 

New Data Types: 

None. 

Definitions: Global Definitions (all error returns): 

• TARCAFONT = systemb.tsf , Font used in the live overlay The DOS 

r~FOKT^ TF0KTS S " S direC,0t > "or thefon 

^thTaTrit ST the TF ° NTS “ TFOKTS=-biah/b, y ah» 

• WRONG_MODE = -2 


• BADjSETUPBLOCK = -3 

• BAD.READBUFF = -4 

• BAD-WRITEBUFF = -5 
Local Definitions: 


. DISPLAY-MEMORY = 0 Indicates you want the 
contents of memory rather than live or overlay. 


targa to show the 


• DISPLAY-LIVE = 1 Indicates you want live video. 


• vPanl — ((short) 0) Vertical pan value. 
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• vPanO = ((short) 256 + vPanl) There are two pages per byte address. 
Each one is given by a different vpan. 

• PixelDepth = 1 Eight bit pixels. 

• HorRes = IMAGEWIDTH The number of pixels in a row. 

• I\umPages = 8 Maximum number of images in storage. 

• AbsRowNum(ImagRow,Page) = ((ImagRow) + ((Page)*IMAGEHEIGHT)) 
Helps compute the byte offset of a pixel we want. 

• RowBytes = ((PixelDepth)*(HorRes)) The number of bytes in an image 
row. 

• RowPerBank = ((32768)/RowBytes) The number of image lines in a 
bank. 

• LineSize — (PixelDepth*HorRes) Same as RowBytes. I don’t know why 
there are two of them. 

• DELTAY = (-30) The space between lines of overlay. 

• XSTART = (370) The starting horizontal position of overlay pose text. 

• YSTART = (450) The starting vertical position of overlay pose text. 

• SJWRITE = 0200 This is defined in MSC somewhere, it indicates the 
type of binary file to open. I could not find the .h file where it was 
defined so I defined it myself. 

• Led control. The following set the number of Led which turns on when 
using plug and play and printer port control. If you want LED one and 
two on then you want LEDone && LEDtwo. To be honest, we don’t do 
it this way but we ought to. 

1. LEDnone = OxFF /*1111,1111*/, no LEDs on. 

2. LEDone = OxFE /*H11,1110*/, LED one on. 

3. LEDtwo = OxFD /*1111,1101*/, LED two on. 

4. LEDthree = OxFB /*1111,1011*/ 

5. LEDfour = 0xF7 /*1111,0111*/ 

6. LEDfive = OxEF /*1110 > 1111*/ 

7. LEDsix = OxDF /*1 101,1111*/ 

8. LEDseven = OxBF /*1011,1111*/ 

9. LEDeight = 0x7F /*0111,1111*/ 

10. LEDall = 0x00 /*0000,0000*/ 

• AND = &, Makes logical statements readable. 
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13.1.1 Header File Listing: 

#ifndefTARGA8_H 
#define TARGA8.H 
#ifndefDATATYPE_H 
^include "datatype .h" 

#endif 

j *********** 

Local Definitions 
** *********/ 

#define WRONG.MODE -2 

^define BAD_SETUPBLOCK —3 10 

^define BAD_READBUFF —4 
#define BAD.WRITEBUFF -5 

#deflne LEDnonc OxFF / *1111,1111*/ 

#deflne LEDonc OxFE / *1111,1110*/ 

# define LEDtwo OxFD / *1111,1101 */ 

#define LEDthrcc OxFB / *1111,1011*/ 

# define LEDfour 0xF7 / *1111,0111 */ 

#define LEDfivc OxEF / *1110,1111*/ 

#define LEDsix OxDF / *1101,1111*/ 20 

^define LEDscvcn OxBF / *1011,1111*/ 

#define LEDcight 0x7F / *0111,1111*/ 

# define LEDall 0x00 / *0000,0000*/ 

^define AND & 

int SctLEDStatc( int OnOff); 

int SctLEDStatcUsingPrintcr( int OnOff): 

int Livc_Vidco( void); 

int GctLinc( int imagerow, int page, ImagcLinc line): 

int PutLinc( int imagerow, int page, ImagcLinc line): 30 

int SctAPixcl( int xcol, int yrow, int page. Pixel value); 

Pixel ContrastPixcl( int xcol, int yrow, int page); 
int Initializc_vision( int color_to_capturc); 
int End_vision( void); 
int Show_Proccss_Imagc( int Buffer); 
void CopyFramc( int From, int To); 
int Grab_Framc ( int Buffer, int LED_statc); 
int Grab_Framc_Printcr_Port ( int Buffer, int LED.statc); 
int ClcarAllPagcs( void); 

int ClcarPagc( int page); 40 

void Grab_Two_Framc ( int BuffcrOnc, int BuffcrTwo): 

void Grab_Four_Framc ( int BuffcrOnc, int BuffcrTwo, int BuffcrThrcc, int 
BuffcrFour); 

void Charlottc_Grab( int BuffcrOnc, int BuffcrTwo, int BuffcrThrcc. int 
BuffcrFour); 

void Intcgratcjmagc ( int Frame, double *sum. ROI roi); 
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void GrabEightPramcs ( void); 

void GrabEightSlowly ( int numficldstowait):/ i s i/nn nf n a*i 
void GrabSixFramcs ( void); ' f a sccond */ 

void circle ( int page, int xccn, int yccn, int radius. Pixel color)- 
void lmc( int page, int xs, int ys, int xc, int ye, Pix^coLr) ’ 

/ Displaymode can be 1 for Live display else Memory Display*/ ’ 
int sct_pagc( int pagc_numbcr, int displaymode): 


^define TARGAFONT "systemb.tsf " 

/ initializes the text for the overlay (loads a font) returns 0 is 
success, returns 1 if cannot find font*/ 
int inittcxt( char *font); 

/* Frees memory used by font*/ 
void finishtcxt( void); 

/'Writes the pose on the overlay and update, the overlay strina memorv’l 
,7‘ d .f'OwOvorMPosc ‘scrccnposc. int ovnrlaypagc) ” ^ ' 

WhUe ZfZ men ° TV ° n ^ 0Ve,!ay ™ e 

void DrawOvcrStrings(Pixcl color, int overlaypage): 

/ actually erases the entire page*/ 
void ErascOvcrlay( int overlaypage); 

/* Turns live overlay on and selects page for display*/ 
void livcovcrlay( int page); 

/ Prints text at xs, ys on page with color*/ 70 

void writctcxt( int page, int xs. int ys, char *tcxt, Pixel color) • 
void sctprintcrportaddrcss( int address): ! 

#endif 


60 
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Documentation Date: 3/12/95 

Prototypes: 

int Live.Video(void) ; 

int GetLineCint imagerow, int page, ImageLine line); 

int PutLine(int imagerow, int page, ImageLine line); 

int Initialize_vision(int color_to_capture) ; 

int End.vision(void) ; 

int Show_Process_Image (int Buffer); 

void CopyFrame ( int From, int To); 

int Grab_Frame (int Buffer, int LED_state) ; 

int ClearAllPages(void) ; 

int ClearPage(int page); 

void Grab_Two_Frame (int BufferOne, int Buff erTwo) ; 
void Grab-Four .Frame (int BufferOne, int Buff erTwo, int BufferThree, 
int Buf f erFour) ; 

void GrabEightFrames (void); 

void GrabEightSlowly (int numf ieldstowait) ;/*f ield is 1/60 of a 
second*/ 

void GrabSixFrames (void) ; 

void circle(int page, int xcen, int ycen, int radius. Pixel color); 
void line (int page, int xs, int ys, int xe, int ye. Pixel color); 
int set_page (int page-number , int displaymode); 
int inittext(void) ; 
void f inishtext (void) ; 

void DrawOverlay(Pose *screenpose, int overlaypage); 

void DrawOverStrings (Pixel color, int overlaypage); 

void EraseOverlay(int overlaypage); 

void liveoverlay(int page); 

int SetLEDState(int OnOff); 

int SetLEDStateUsingPrinter(int OnOff); 

int SetAPixel(int xcol, int yrow, int page. Pixel value); 

Pixel ContrastPixel(int xcol, int yrow, int page); 
int Grab_Frame_Printer_Port (int Buffer, int LED_state); 
void Charlotte_Grab (int BufferOne, int Buff erTwo, int BufferThree, 
int Buff erFour) ; 

void Integrate-Image (int Frame, double *sum, ROI roi); 

void writetext (int page, int xs, int ys, char *text, Pixel color); 

void setprinterportaddress(int address); 

Source File: targa8.c 

Type of Function: User Callable 
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Header Files Used in targa8.c: <targraf.h> <io.h> <stdlib.h> <string.h> 
<fcntl.h> <conio.h> <time.h> ”targa8.h” ’’datatype.h” 

Description: 

There are several user callable routines in this file. There may be some differ- 
ences between this code and the flight code. I do not know why this happened 
nor whether the differences are necessary but the differences were present at 
one point in time. Where I knew of differences, I documented them. Search 
for the word flight in the code to find them. Some of the documentation for 
these programs can be found in the hardware and software manuals produced 
by Targa. Page numbers in this documentation refer to these manuals. In 
version 5 of MSC (used on some machines at NASA) there was a problem 
with _inp and _outp. To get around this we use an $ifdef TAMU statement 
to change to inp and outp. You may need to modify this to make it work for 
you. If the code compiles, don’t worry. If you have a problem with inp and 
outp it will not compile. The tap setting doesn’t quite work as we expect. 
The settings used prevent the captured images from shifting side to side from 
the live video. Granted it looks weird. Basically what we do is set the tap to 
different values when the image is captured than when it is displayed. 

1. Initialize.vision - This routine must be called before any other targa 
routine. In addition to initialization the routine sets the pen size for 
overlays. Part of initialization is to run the program LIVE.BAT which 
is generated via another Targa utility. 

We have noticed problems with this routine. 

(a) It is used with End.vision to trap all targa stuff between the two 
calls. If you put an initialize.vision ... end.vision in a loop, the 
routine will crash big time after several iterations. I think there is 
a memory leak in some of the targa code which we have no source 
for. The solution is to call initialize.vision once at the beginning of 
your code and call end.vision once at the end. 

(b) When the code is used with a ’’real” program there isn’t enough 
memory to do a system call to initialize some of the hardware. Our 
solution was to write a do nothing but initialize program which 
generates a TARGA. PAR file. Then this routine looks to see if 
TARGA. PAR is in the current directory, if it is, we read it rather 
than doing a system call. 

We experimentally determined the setting for the pan register. If the 
value is 0 the image jumps to the side when you capture an image. I do 
not understand why the number we use works. 

Originally we used the simple method shown on 1-31 of the Targa hard- 
ware manual to capture green only. Now we use recapture mode (1-31 
hardware) to capture any color we want. 
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2. EncLvision - Terminate Vision system. 

3. Grab-Frame - This routine sets the LED state and grabs a frame. 

4. Grab_Two_Frame - Obvious? 

5. Grab_Four_Frame - Ditto. 


6. Grab -Eight^lowly This routine grabs a frame (2 fields) then waits num- 
topause vertical blanking periods 1/60 of a second I think. Grabs another 

tJlC# 


/. GrabEightFrames - Grabs 8 quickly. 

8. GrabSixFrames - Grabs 6 quickly. 

9. Live-Video - Display a live image, turns off overlay. 

10. Show_Process Jmage - Display a stored image, turns off overlay. 

11. ClearPage - Erases a video page. 

12. ClearAllPages - Erases 8 pages. 

13. CopyFrame - Copies video from page From into page To. 


14. GetLine - Gets row imagerow from page. It actually copies data from 
one memory address to another. SLOW. 

lo. PutLine - Copies data into row imagerow of page. SLOW. 

16. circle - Generates a circle. It draws with a specified color in Targa 
memory, \ou may not see it unless you display the page it is drawn on. 

17. line - Draws a line. 


18. mi t text - Prepares for live overlay but does not show anything. It must 

f 0 e / t S e TFmVq ltlahZe ' ViSi ° n bUt bef ° re any ° Verlay Stuff - lt searches 

tor the TFOIs TS environment variable. If TFONTS is set, it loads the 
font file from the specified directory, otherwise it loads the font from the 
current directory. Fonts take a lot of memory so call finishtext when 
you are finished with the fonts. If the program cannot load the font for 

whatever reason, bad name, bad directory or insufficient memorv, the 
function returns FAIL. - ’ 

19. liveoverlay - Overlay page on top of live. To turn it off call Live Video 
or reset the page. 

20 ' °Z? VeHay ‘ DraW screen P ose °“ 'be overlay page. Load the internal 
strings overx, overy ... then do it. 
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21. Draw 0 verStri ngs - This routine writes the text in internal storage overx 
overy ... onto Targa page overlaypage using color. It probably should 
not be a user callable routine since it is only called by DrawOverlay. 

22. EraseOverlay- Erases the overlay. The simplest logic to erase the overlay 

is to set it zero. SLOW! * 

23. finishtext - The fonts used in the overlay (set up by inittext) takes up 
memory. Dump them when finished. 

24. Grab-Frame_Printer_Port - Sets the LEDS using the printer port then 
grabs an image. 

25. Charlotte_Grab - In the Charlotte system, the LEDs are blinking a a 
slower rate and are not synchronized to anything. This routine grabs a 

sufficient number of frames that we have a high probability of catching 
an on and an off LED state. 

26. reset_field_count - See the chapter on QTARGA8. 

27. GrabEightFrames_ForSync - See the chapter on QTARGA8. 

28. ResyncFieldCount - See the chapter on QTARGA8. 

29. GrabOnOffFrame - See the chapter on QTARGA8. 

30. ContrastPixel - Sets the contrast of a pixel. If the original pixel is less 
than 128 it sets it to 255. if it is greater than 128 it sets it zero. 

31. SetAPixel - Sets one pixel intensity. 

32. SetLEDState- For plug aud play, a DIDO board with sufficient current 
drive capability is used. The board has a base address of 0X300 aud 
LEDs are connected to pins of the board. A byte is sent to the routine 
to designate how many LEDs to turn on. The definitions in the header 
file should be used to specify how many LEDs are to be turned on A 
1 IL low turns the LED on. 

33. setprinterportaddress - Sets the address of the printer port. We find this 

number on our computer by noting the value displayed by the BIOS on 
boot up. 

34. SetLEDStateUsingPrinter - Similar to SetLEDState except it uses the 
printer port I think the drive capability of the printer port is insufficient 
so you will have to use a transistor drive circuit. TTL high turns the 

Ds on The software inverts the number sent to it so the software is 
compatible between Plug and Play and printer port. 
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13.3 Function: Local Targa Routines 

Documentation Date: 6/30/94 

Prototypes: 

void dowrite(void) ; 
int rightraode(void) ; 
int capture ( vo id) ; 

int DumpSt ate (char *file, void *reg); 
int ReadSt ate (char *file, void *reg); 

void writetext(int page, int xs, int ys, char *text, Pixel color) 
Source File: targa8.c 

Type of Function: Internal to the Library, Not User Callable 

Header Files Used in targa8.c: <targraf.h> <io.h> <stdlib.h> <string.h> 

<fcntl.h> ”targa8.h” ” datatype. h” 

Description: 

Some of the documentation for these programs can be found in the hardware 
and software manuals produced by Targa. Page numbers in this documenta- 
tion refer to these manuals. 

1. dowrite - TARGA is controlled via several registers, this routine copies 
the internal data into the hardware registers. 

2. rightmode - Returns true is the TARGA is in the correct mode of oper- 
ation. 512 rows, 512 columns and 8 bits. 

3. capture - Grabs a single frame (2 fields). 

4. DumpState - Does a binary write to a file (targa.par is currently used) 
storing the contents of the Targa registers. This is used in conjuction 
with Initialize.Vision to avoid the system call. 

5. ReadState - Does a binary read from a file (targa.par is currently used) 
determining the previous contents of the Targa registers. This is used in 
conjuction with Initialize.Vision to avoid the system call. 

6. writetext - Writes overlay text into Targa memory. 

13.3.1 Program Listing: 

/ *NOTE NOTE NOTE NOTE — There may be some differences between this code 
and the flight code. I do not know why this happened and if it is 
necessary but it was true at one point. Where I knew of differences, I 
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documented them. Search for the word flight to find them.*/ 

/ In this file, comments to the right of a statement refer to page 
numbers is hardware or software. These are books written by Targa. 

They came with the board and software. */ 

/ * During Charlotte Grab the tap works properly. I did not change other grab 
routines because I do not have time to test them. */ 

#include <targraf.h> 

# include <io.h> 

#include <stdlib.h> 

# include <string.h> 

# include <fcntl.h> 

#include <conio.h> 

# include <timc.h> 

# include "datatype. h" 

#include "targa8.h" 

Local Static Variables 

************************************/ 

TplusRcgs currRcgs; j* TARGA+ structure */ 

TplusRcgPtr cRcgPtr: / * current structure pointer *j 

grafPort thcPort; / *used by targa routines to store pen size etc */ 
int BankBasc; * 


j ******************** 

Local Definitions 

********** ************ ******* JJ fr^, fc ^^ + ;I y 

/ * Version 5 does not allow Jnp and _outp but they use it at NASA change 
these defines depending on the version of c you use*/ 

#ifdef TAMU 

#define Jnp inp 
#define _outp outp 
#endif 


#define DISPLAY JVIEMORY 0 
#define DISPLAY.LIVE 1 
#define LowBankAddrcss OxcOOOOO 
#define HighBankAddrcss OxcOOOOO 
/* 


# define LowBankAddrcss ( (long) BankBase << 16 ) 

//define HighBankAddrcss ( ((long) BankBase << 16 ) + 32768) 

/* check out these bank addresses especially Highbank 1-13 hardware*/ 
/ * The following defs are from 1-28 of the hardware manual*/ ' 

# define vPanO ((short) 13) 


40 


00 
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# define vPanl ((short) 256 + vPanO) 

7 


#define vPanl (( short) 0) 

#define vPanO (( short) 256 + vPanl) 

/ * PixelDcpth is defined as the number of bytes per pixel 

HorRes = 512 for image widths <= 512 or 1024 for widths >512 
1—12 of hardware*/ 

#define PixelDcpth 1 
#define HorRes IMAGEWIDTH 
#define NumPagcs 8 

#define AbsRowNum(ImagRow.Pagc) ((ImagRow) + ((Page) *IM AGEHEIGHT) ) 
#define RowBytcs ((PixclDcpth)*(HorRcs)) 

#define RowPcrBank ((32768)/RowBytcs) 

#define LincSizc ( PixelDcpth *HorRcs) 

/Hypedef ImagcLinc BankfRowPerBankJ;*/ 


/ *************+*********+ +++++++ 

Local Function and Prototypes 

int rightmodc( void); 
int capturc( void); 

int DumpStatc( char *filc. void *rcg); 
int RcadStatc( char *filc, void *rcg): 

/ *This returns true is the TARGA is in the correct mode of operation. 
512 rows, 512 columns and 8 bits. */ 
int rightmodc( void) 

{ 

if((currRcgs. width > 512) | /* 16 bit lores ' */ 

(currRcgs. height > 512) | 

(currRcgs. depth != 1 )) 

{ 

Puts ("Use TMODE 1, 2, 5, 6, 9, 10\n"); return (FALSE); 
return (TRUE): 

} 

/ *This routine grabs a single frame. */ 
int capturc( void) 

{ 

FramcGrab(&currRcgs); /* frame grab */ 

return SUCCESS: 

} 

/ *This routine sets a page (0 to 7) once the page is set, a capture 
routes the data into the page, displaymode can be either 1 for live or 0 
for stored. */ 
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unsigned char PList[5] = {MODE 2 ,PAGE,WHICH 8 , BYCAP, VPAN}; 
int sct_pagc( int pagcjnunbcr, int displaymodc) 

Wc will define video page numbers as: 1 - lowest byte lowest vPan, 

0 — lowest byte highest vPan 
3 — next byte lowest vPan etc *f 
if(!rightmodc()) return( WRONG JdODE); 
if (displaymodc == DISPLAY_LIVE) 
currRcgs.dispModc = 1; 
else 


currRcgs.dispModc = 0; 
switch( pagc.numbcr ){ 
case 0 : 

currRcgs.pagc = 0; 
currRcgs.vPan 
currRcgs.byCap - 
currRcgs.which8 
break; 
case 1 : 

currRcgs.vPan 
currRcgs.byCap 
currRcgs.which8 
break; 
case 2 : 

currRcgs.vPan 
currRcgs.byCap 
currRcgs.which8 
break; 
case 3: 

currRcgs.vPan 
currRcgs.byCap = 
currRcgs.which8 = 

hrpalf 


UO 


= ( short int) vPanO; /* vPan page 0 

= 1; /*5-34 hardware */ 

— 0: /* display lowest 8 bits VRAM *j 


= ( short int) vPanl: 

: 1; 1*5—34 hardware*/ 

- 0: / *display lowest 8 bits VRAM */ 
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= ( short int) vPanO; 
= 2; 1*5-34 hardware*/ 
= 1 : 


= ( short int) vPanl; 
2; 1*5-34 hardware*/ 
1 : 


/ * vPan page 0 


case 4: 

currRcgs.vPan = ( short int) vPanO; 
currRcgs.byCap = 4; j*5—34 hardware / 
currRcgs.which8 = 2; 
break; 
case 5: 

currRcgs.vPan = ( short int) vPanl; 
currRcgs.byCap = 4; /*5—34 hardware */ 
currRcgs.which8 = 2: 

break: 
case 6 : 

currRcgs.vPan = ( short int) vPanO: 
currRcgs.byCap = 8; /*5-34 hardware*/ 
currRcgs.which8 — 3; 


/ * vPan page 0 
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/ * vPan page 0 
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break; 
case 7: 

currRcgs.vPan = ( short int) vPanl; 
currRcgs. byCap = 8; /*5-34 hardware*/ 
currRcgs.which8 = 3; 
break; 
default: 

puts("Page must be 0-7\n"); 
return FAIL; 

} 

WritcSct ( &currRcgs , PList) ; 
return SUCCESS; 

} 


j ****************************************** 

Externally callable routines 

/****************************************** 

* Initialize Vision system * 

^************* ****************************/ 

/ *This routine must be called before any other targa routine . We have 
noticed problems with it. 1 . It is used with End__vi$ion to trap all 
targa stuff between the two calls . If you put an initializejuision ... 
end vision is a loop , the routine will crash big time after several 
iterations . I think there is a memory leak in some of the targa code 
which we have no source for . The solution is to call initialize^ vision 
once at the beginning of your code and call endjvision once at the end. 

2. When the code is used with a "real” program there isn't enough memory 
to do a system call to initialize some of the hardware . Our solution 
was to write a do nothing but initialize program which generates a 
TARGA. PAR file. Then this routine looks to see if TARGA. PAR is in the 
current directory, if it is, we read it rather than doing a system 
call . 


In addition to initialization the routine sets the pen size for 
overlays. 


int Initializc_vision( int color_to_capturc) 

r 

if ( InitGraphicsQ < 0 )/*2-65 of software */ 

{ 

puts( n TARGA driver not available"); 
cxit(— 1); 
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setprinterportaddress(0x378); 

7 

if( ! Graphlnit (&currRcgs) ) 

/ * Puts board in raw mode, resets it and gets registers 
returns true is successful false otherwise (3—18) *f 

puts("TARGA+ driver not available\n"): return FAIL- 
} ' 

/ *If there is a targa.par file, read it otherwise try to do the 200 

system call. */ 

if( RcadStatc("targa . par", &currRcgs) != SUCCESS ){ 
f*This runs a file called live.bat in the current directory.*/ 
systcm("LIVE M ); 

/* Create a new targa.par file for next time.*/ 

DumpStatc( "targa . par" ,&currRcgs): 

} 

SctPcnSizc(3,3); 

SctTPlusModc(&currRcgs,1.0);/ * set pixel depth 1, interlaced = 0 */ 

/* Set camera to rgb 1-26 hardware*/ 210 

currRcgs.rgb = 0: / *1 is rgb, 0 is composite*/ 
curr Regs. s Video = 0; /*0 for rgb*/ 

/ * Set initial vertical panning */ 
currRcgs.top[0] = 255; 
currRcgs.top[lj = 1023; 
currRcgs.bot[0] = 0; 
currRcgs.bot[lj = 768; 

currRcgs.vPan = vPanO; / *What the heck 1-28 hardware*/ 

/* Set horizontal pan 1-29 hard. If this value is 0 the image 
jumps to the side if you 1. are watching live, 2. grab an image and 3. 220 

display the image. What we did was experimentally determine the number 
to use so the jump is minimum. I do not understand why 12 works. (Nor 
do I really care.)*/ 

/* The following line changed*/ 
currRcgs.tap = 17; 
currRcgs.tap = 5; 

/ Originally we used the simple method shown on 1 — 31 hardware to 
capture green only. We do not use this stuff, but I left it here just 
in case we needed this information. It is so hard to get otherwise. If 
you set it to b&w here it will only capture the green input 1—30,31 230 

hard. However perhaps we could capture a 32 bit image then move the 
color we want to another page. */ 

/ * curr Regs. monoSrc = 0;*/ / *0 takes green, 1 takes chromakeyer 1—31 hard*/ 
/ curr Regs, cm2 = 0; */ / *0 apply s monosrc to all 3 bytes of input, 1 does not 
take monosrc*/ 

j currRcgs. cml = 0; */ / *This means 16, bit color 5—57 hardware, when cm2 = 
0 this doesn’t matter*/ 

/ currRegs.cmj = 0; *// *0 means do not recapture, 1 means capture from the 
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blenders 5—60 hard*/ 

/ * Now we use recapture mode 1—31 hardware to capture any color we want */ 240 

curr Regs. cm3 = 1; /*This is the key. Make sure we are not overlaying or else 
we will capture the overlay also*/ 

switch (color_to_capturc){ j*See 1-31 hardware for the following* j 
case GREEN: 

curr Regs. cml = 1; 
curr Regs, cm2 = 0; 
break; 
case BLUE: 

curr Regs. cml = 0: 

currRcgs.cm2 = 0 ; 250 

break; 

default: / *RED */ 
currRcgs.cml = 1; 
currRcgs.cm2 = 1: 

} 

f* Set the live image to be 8 bit green only*/ 

currRcgs. Iivc8 = 0; f*l means map green input to all 24 bits (pg5-61) 

0 means map 3 colors to 24 bits a 0 means the live video will be color*/ 

/* make sure vram rather than border colors is sent to the buffer port mux*/ 

currRcgs. buffer Port Co lor = 0; / * 0 uses vram, 1 uses border color 5— 5&iiardwarc*/ 
/* make sure vram display is set to 8 bits */ 

currRcgs.buffcrPortSrc = 0; f * 0 sets 8 bit mode 5—56 hardware*/ 

/* make sure board is set for bank addressing*/ 
currRcgs. map = 0; 

currRcgs. fgp =0; j*0 means no processing to the data (1-39,5-61) 

1 means remove excessive blue*/ 

curr Regs, genlock = 1; f*l means sync is generated by targa used for 
camera only I think , not needed in memory display*/ 
currRcgs. livcPortlnv = 0; j*0 means don't invert port mux (1—39) 

1 means do invert*/ 270 

currRcgs. livcMixBypass =1; j*l means bypass any mixing (1-39,5- 57) 

0 means use the mixer */ 

currRcgs. livcPortSrc = 0; j*0 means portmvx accepts live video ( 1-39,5-61 ) 

1 means accepts stored data*/ 
currRcgs. dispModc = 1 \j*l means live 
0 means stored */ 

currRcgs.maskLH = 0 \f*I don't think this is needed . It protects some memory 
planes */ 

currRcgs. gcnCtrl = 5 :/*I don't know why but this differed between A&M and the 
original flight hardware make it 0 for consistency*/ 280 

/* Originally this was 0 on flight changed to 5 for hitachi camera*/ 

WritcAll(&currRcgs); 
switch (curr Regs. base ){/*5—36 hard*/ 
case 0: Bank Base = 0x8000; 
break; 
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case 1: BankBasc = 0x9000; 
break; 

case 2: BankBasc = OxAOOO; 
break; 

case 3: BankBasc = OxBOOO: 
break; 

case 4: BankBasc = OxCOOO; 
break; 

case 5: BankBasc = OxDOOO; 
break; 

case 6: BankBasc = OxEOOO; 
break; 

case 7: BankBasc = OxFOOO; 
break; 

return SUCCESS; 

} 

/mi.************************************** 

t * 

* End vision * 

int End_vision( void) 

EndGraphics(), ccttppFSSV else return(FAIL); 

if(GraphEnd (&currRcgs)) return(SUCCE ). 

/ * Writes register and closes driver ( J ) 

returns true if success, false otherwise / 

} 

,„**************************************** 

I * 

* Grab_Framc * 

* This routine sets the LED state and 

' grabs a frame. It is hardware dependent. 
y ... . . . ^ +44******************* 


int Grab.Frarnc ( int Buffer, int LED.statc) 

{ 

int rctumvaluc; 

unsigned char rList [] = {TAP.O}. 
curr Regs. tap — 0; 

WritcSct(&currRcgs, rList); 

^““(bXdIsPLAY .LIVE) != SUCCESS) return PAIL; 

rctumvaluc = capture ()« 

SctLEDStatc (LEDnonc) ; 


290 


300 


310 


320 


330 


currRcgs.tap — 5; 
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Writ cSct ( &currRcgs, rList ) : 

} 

int Grab_Pramc_Printcr_Port ( int Buffer, int LED.statc) 
int rctumvaluc; 

unsigned char rListfl = {TAP,0}; 
currRcgs.tap = 0; 

WritcSct(&currRcgs, rList); 

SctLEDStatcUsingPrintcr(LED_statc); 

if(sct_pagc (Buffer, DISPLAY.LIVE) != SUCCESS) return FAIL: 
rctumvaluc = capturc(); 

SctLEDStatcUsingPrintcr(LEDnonc); 

currRcgs.tap = 5; 

WritcSct(<fecurrRcgs, rList): 

} 

int Grab_Framc_N owait ( int Buffer, int LED.statc) 

unsigned char rListQ = {TAP,0}; 
currRcgs.tap = 0; 

WriteSet ( & curr Regs, rList ) ; 

if(sct_pagc (Buffer, DISPLAY.LIVE) != SUCCESS) return FAIL- 
SctLEDStatc(LED.statc); 

FicldGrab(&currRcgs,0); 

GrabNext Field ( ) ; 

SetLEDState (LEDnonc) ; 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

currRcgs.tap = 5; 

Writ cSct ( & currRcgs ,rList ) ; 

} 

* Grab_ Two^Framc * 

void Grab.Two.Framc ( int BufferOne, int BufferTwo) 

unsigned char rList[] = {TAP.O}; 
currRcgs.tap = 0; 

WriteSet (&curr Regs, rList); 

/ if start by grabbing odd they are all half on 
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if start by grabbing even they are all all way on or all way off 

if you pause inbetween grabbing even/ odd some will be all on some all off 

by convention frame grab begins on an odd field 

7 

sct_pagc (BuffcrOnc, DISPLAY_LIVE); 

/* 

There may be some confusion here. The flight hardware probably needs 
the following FieldGrab but our hardware was modified so we need 
FicldGrag(&currRegs,l ); 

7 

FieldGrab (&currRcgs,0) ; 

GrabNcxtFicld(): 

sct_pagc (BuffcrTwo, DISPLAY.LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicldQ; 


currRcgs.tap = 5; 

WritcSct(&currRcgs,rList); 

400 

} 


* Grab_Four_Frame * 

tt****************************************/ 

void Grab_Four_Framc ( int BuffcrOnc. int BuffcrTwo, int BuffcrThrcc, int BuffcrFour) 


unsigned char rListQ = {TAP.O}; 
currRcgs.tap = 0: 

WritcSct (&currRcgs,rList) ; 
sct_pagc (BuffcrOnc, DISPLAY_LIVE): 

FicldGrab(&currRcgs.O); 

j* 

There may be some confusion here. The flight hardware probably needs 
the proceeding FieldGrab but our hardware was modified 
FieldGrab/ &currRcgs,l); 

7 

GrabNcxtFicldQ; 


set _pagc (BuffcrTwo, DISPLAY.LIVE): 
GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

sct_pagc (BuffcrThrcc, DISPLAY_LIVE); 
Grab N ext Field () ; 

GrabNcxtFicldQ; 
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sct_pagc (BuffcrFour, DISPLAY.LIVE): 
GrabNcxtFicld(); 

GrabNcxtFicldQ; 


currRcgs.tap = 5; 

WritcSct(&currRcgs,rList); 

} 

/************************ 

* Charlotte_Grab* 

**************t*t************t********t***/ 

,, i / 440 

void Charlottc.Grab( int BuffcrOnc, int BuffcrTwo, int BuffcrThrcc, int BuffcrFour) 

unsigned char rListQ = {TAP.O}: 
currRcgs.tap = 0; 

WritcSct(<fccurrRcgs,rList); 

sct_pagc (BuffcrOnc, DISPLAY.LIVE); 

FicldGrab(&currRcgs.O); 

GrabNcxtFicld(); 

sct_pagc (BuffcrTwo, DISPLAY.LIVE); 

Grab Next Field () ; 

GrabNcxtFicld(): 

GrabNcxtFicld(); 

GrabN cxtFicld( ) ; 


setjDage (BuffcrThrcc, DISPLAY_LIVE); 
GrabNcxtFicld() : 

GrabNcxtFicld(); 

GrabNcxtFicldQ: 

GrabNcxtFicld(); 

sct_pagc (BuffcrFour, DISPLAY.LIVE); 
GrabNcxtFicldQ: 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

GrabNcxtFicld() ; 

currRcgs.tap = 5; 

WriteSet (& currRcgs ,rList ) ; 


} 
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/**************** 

* Gra b_Eigh t_Slowly * 

* This routine grabs a frame (2 fields) then 

* waits numtopause vertical blanking periods 
lj 60 of a second I think. Grabs another... 

** ***************** ***ttt^^t**t****t *******! 

void GrabEightSlowly ( int numtopause) 
int i; 

unsigned char rList[] = {TAP.O}; 
currRcgs.tap = 0; 

WritcSct (& curr Regs , rList ) ; 
sct_pagc (0, DISPL AY_LIVE); 
FicldGrab(<fecurrRcgs,0) ; 

GrabNcxtFicldQ; 

sct_pagc (1, DISPLAY_LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicld(); 

for(i=numtopause;i>0;i — ) VBLWait(); 


seepage (2, DISPLAY_LIVE); 
GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

sct_pagc (3. DISPLAY_LIVE); 
GrabNcxtFicld(); 

GrabNcxtFicld(); 

for(i=numtopausc;i>0;i — )VBLWait(): 


sct_pagc (4, DISPL AY_LIVE) ; 

GrabN ext Field () ; 

GrabNextFicld(); 

sct_pagc (5, DISPL AY.LIVE); 
GrabNcxtFicld(); 

GrabNcxtFicldQ; 

for(i=numtopause;i>0;i — )VBLWait(); 


sct_pagc (6, DISPL AY.LIVE); 

GrabNcxtFicldQ: 

GrabNcxtFicldQ; 

sctj)agc (7, DISPL AY_LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicldQ: 

020 
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currRcgs.tap = 5; 

WritcSct (&; currRcgs ,rList ) ; 

} 


! t*** ****** ******* ********* **************** 

* Grab_Eight_Frame * 

******************************************/ 
void Grab Eight Frames ( void) 

{ 

unsigned char rListQ = {TAP.O}; 
currRcgs.tap = 0; 

WritcSct (&curr Regs, rList); 
sct_pagc (0, DISPL AY.LIVE) ; 
FicldGrab(&currRcgs,0): 

Grab N ext Field () ; 

sct_pagc (1, DISPL AY.LIVE): 
GrabNcxtFicld(); 

GrabNcxtFicld(); 

sct_pagc (2, DISPL AY.LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicldQ: 

sct_pagc (3, DISPL AY.LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicld(); 

sct_pagc (4, DISPL AY.LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicldQ ; 

sot_pagc (5, DISPL AY.LIVE); 

GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

sct_pagc (6, DISPL AY.LIVE); 

GrabNcxtFicldQ : 

GrabNcxtFicldQ; 

sct_pagc (7, DISPL AY.LIVE) ; 

GrabNcxtFicldQ; 

GrabNcxtFicldQ ; 
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curr Regs. tap = 5; 

Writ eSet ( & curr Regs , rList ) ; 

570 

} 


j ****************************************** 

* Grab_Six_Framcs * 

************************************** ****/ 
void GrabSixFrames ( void) 

{ 

unsigned char rListQ = {TAP,0}; 
curr Regs, tap = 0; 

WritcSct(&currRcgs, rList); 
sct_pagc (0, DISPLAY_LIVE); 
FicldGrab(&currRcgs.O); 

GrabNcxtFicld(); 


sct_pagc (1, DISPLAY.LIVE); 
GrabNcxtFicldO; 
GrabNcxtFicldO ; 


sct_pagc (2, DISPLAY.LIVE); 
GrabNcxtFicld() ; 
GrabNcxtFicldO; 


sct_pagc (3. DISPLAY.LIVE); 

GrabNcxtFicldO; 

GrabNcxtFicId(); 


sct_pagc (4, DISPLAY.LIVE); 

GrabNcxtFicldO; 

GrabNcxtFicldO; 


sct_pagc (5, DISPLAY.LIVE); 

GrabNcxtFicldO; 

GrabNcxtFicldO; 
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currRcgs.tap = 5; 

WriteSet ( &currRcgs .rList) : 


} 


void rcsct_ficld_count( void); 

t ****************************************** 


* Grab_Eight_Framc_ForSync * 

************************************* *j 


610 
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^void GrabEightFramcs_ForSync ( void) 

/ * Turn off interrupt */ 

_inp (0x222); 

_outp (0x220+0xc00, inp (0x220+0x402) & Oxbf)- 
_outp (0x220+0x401, 0x90); 

-°utp (0x220+0xc00, inp(0x220+0x402) | 0x40): 
_outp (0x220+0xc02, inp(0x220+0xc02) k 0x3f): 
_outp (0x220+0xc00, inp(0x220+0x402) k Oxbf): 
_inp(0x222); 

sct_pagc (0, DISPL AY_LIVE) ; 
FicldGrab(&currRcgs, 0 ); 

GrabNcxtFicld(); 

sct_pagc (1, DISPL AY_LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

sct_pagc (2, DISPL AY.LIVE); 

Grab N ext Field () ; 

GrabNcxtFicldQ; 

sct_pagc (3, DISPL AY.LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

sct_pagc (4, DISPLAY_LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicld() ; 

sct_pagc (5, DISPLAY.LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

setjiage (6, DISPL AY_LIVE); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

sct_pagc (7, DISPL AY.LIVE): 

GrabNcxtFicldQ; 

GrabNcxtFicldQ; 

/* Turn on interrupt */ 

Jnp (0x222); 

_outp (0x220+0xc00, inp (0x220+0x402) & Oxbf)- 
_outp (0x220+0x401, 0x90); 
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_outp (0x220+0xc00, inp(0x220+0x402) | 0x40); 

_outp (0x220+0xc02, inp(0x220+0xc02) | OxcO); 

_outp (0x220+0xc00, inp (0x220+0x402) & Oxbf); 

_inp(0x222); 

reset field count (): 

} 

int ficld_count_is( void); « 7 o 

void RcsyncFicldCount( int FirstBrightFicld) 

{ 

while (ficld_count_is() != FirstBrightFicld); 
reset field countQ: 

} 

void GrabOnOffFramc() 

{ 680 
unsigned char rList[] = {DISPMODE. 0}; 

while (ficld_count_is() != 15); 

currRcgs.dispModc =1; /* Put Targa board in Live mode */ 

WriteSet (&currRcgs. rList): / * It need to be in Live mode to capture */ 

/ * Turn off interrupt */ 

_inp (0x222); 

_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf); e»o 

_outp (0x220+0x401. 0x90); 

_outp (0x220+0xc00, inp(0x220+0x402) | 0x40): 

_outp (0x220+0xc02, inp(0x220+0xc02) & 0x3f); 

_outp (0x220+0xc00, inp(0x220+0x402) & Oxbf); 

_inp(0x222); 

sct_pagc (1, DISPLAY_LIVE); / * First LED On frame is in memory 1 *f 
FieldGrab(&currRcgs,0); 

GrabNcxtFicld(); 

700 

setjiage (2, DISPLAY_LIVE); /* LED Off frame is in memory 2 */ 
GrabNcxtFicldQ; 

GrabNcxtFicld( ) ; 

GrabNcxtFicldQ : 

GrabNcxtFicldQ: 

sct_pagc (3. DISPLAY.LIVE); /* Second LED On frame is in memory 3 *f 
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GrabNcxtFicldQ; 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

sct_pagc (4, DISPL AY_LIVE) ; 
GrabNcxtFicld(); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

GrabNcxtFicld(); 

/* Turn on interrupt */ 

Jnp (0x222): 

_outp (0x220+0xc00. inp(0x220+0x402) & Oxbf); 
_outp (0x220+0x401, 0x90); 

_outp (0x220+0xc00, inp(0x220+0x402) | 0x40): 
_outp (0x220+0xc02, inp(0x220+0xc02) | OxcO); 
_outp (0x220+0xc00. inp (0x220+0x402) & Oxbf); 
_inp(0x222); 

} 

* Live_ Video * 

* Initialize Vision system * 

int Live Vidco() 

{ 

unsigned char rListQ = {DISPMODE, 0}; 

currRcgs.dispModc = 1 :/*l means live 
0 means stored */ 
WritcSct(&currRcgs, rList); 
return SUCCESS; 


* Show_Process_Image * 

* This was modified for the Targa to 
accept the image number 0— 7 

int Show_Proccss_Imagc( int Buffer) 

{ 
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sct_pagc(Buffcr,DISPLAY_MEMORY); 
return SUCCESS: 

} 


j **************************************** 

The following sets a page to 0 

************************** **************/ 
int Clear Page ( int page) 

{ 

ImagcLinc line; 
int row; 

for(row=0:row<IMAGEWIDTH;row-|— |-)linc[row]=0; 
for(row=0;row<IMAGEHEIGHT-l;row++) PutLinc(row, page, line): 
return SUCCESS: 

} 


760 
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j **************************************** 

The following sets a page bits to all Is 

****************** ******** **************yr 

int Ones ( int page) 

{ 

ImagcLinc line; 
int row; 

for(row=0;row<IMAGEWIDTH;row++)linc[row]=255; 
for(row=0;row<IMAGEHEIGHT-l;row++) PutLinc(row. page, line): 7 so 

return SUCCESS: 

} 


^ **************************************** 

The following sets all memory to 0 

************** **************************/ 
int Clear AllPagcs( void) 

{ 

int page; 

for(pagc=0:pagc<NumPages;pagc++)ClcarPagc(pagc): 
return SUCCESS: 

} 


j **************************************** 

The following copies video from page From into page To 

************************************** **/ 
void CopyPramc( int Prom, int To) 

{ 

ImagcLinc line; 

int i; 

for(i=0;i<IMAGEHEIGHT;i-h-h){ 

GctLinc(i,Prom,linc); 
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PutLinc(i,To,linc): 

} 

} 


The following gets row imagerow from page 
0 <= imagerow <= IMA GEHEIGHT 

***********************tt*******tt*****y 

int GctLinc( int imagerow, int page, ImagcLinc line) 
int row; 

unsigned int count; 
count = sizeof(Pixcl) * IMAGEWIDTH; 
row = AbsRowNum ( imagcrow.pagc) : 

•fIiR Ct ^n B ff^ ( ° !r0W ' I ^ AGEWIDTH_l!r0W+1)) return (BAD SETUPBLOCK) 
it(!RcadBuff(lmc, count)) return(BAD READBUFF)- 

return SUCCESS: 

} 

820 


/ **************************** **^^^^^ 

The following puts row imagerow into page 
0 <= imagerow <= IMA GEHEIGHT 

********************** ************ ******^ 
int PutLinc( int imagerow, int page, ImagcLinc line) 


830 


int row; 

unsigned int count: 
count = sizeof(Pixcl) * IMAGEWIDTH; 
row = AbsRowNum(imagcrow,pagc): 

•5i?^ P if 1 ^l C - (0 ' rOW,IMAGEWIDTH_l!rOW+1)) ret urn(BAD_SETUPBLOCK): 
n(!WritcBuff(linc,count)) return(BAD WRITEBUFF)* 

return SUCCESS: 

} 


Pixcl^ContrastPixcl( int col, int imagerow, int page) 
int row: 

Pixel line, contrast; 
unsigned int count: 
count = sizeof( Pixel): 
row = AbsRowNum(imagcrow,pagc): 
if(!SctUpBlock(col,row,col,row)) return(BADjSETUPBLOCK)- 
if(!RcadBuff(&linc, count)) return(BADJlEADBUFF): 
if ( line >(PIXEL_M AX/ 2)) contrast = 0 : 

else contrast = PIXELJMAX; 

if(!WritcBuff(&contrast, count)) return(BAD_WRITEBUFFV 
return line; ~ : 
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} 


int SctAPixcl( int col, int imagcrow, 
int row; 

unsigned int count; 
count = sizeof(Pixcl); 


int page, Pixel value) 


row — AbsRowN um ( imagcrow, page) : 

if(!SctUpBlock(col,row,col+l,row+l)) return(BAD JSETUPBLOCK)- 
if(!WritcBuff(&valuc, count)) return(BAD WRITEBUFFV 
return SUCCESS: " 

} 
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/ ************************ 4 ,**+#,!,************ 

This routine generates a circle. It draws it in TArga memory. You 
^ e * t *** < ***** l J eSS y° U ^ s Pl a y the page it is drawn on. 

void circlc( int page, int xccn, int yeen, int radius, Pixel color) 


may 


Rcct frame; 
Point pt; 
pt.x = xccn; 


pt.y = AbsRowNum(yecn,pagc); 
CcntcrRcct(&framc, pt, 2*radius, 2*radius); 
SctForcColor( ( unsigned long) color); 
StrokcOval (frame) : 

} 


870 


********** 


This routine draws a line. 


fc**** y 


void linc( int page, int xs, int ys, int xc, int ye. Pixel color) 


SctForcColor( ( unsigned long) color); 
MovcTo(xs,AbsRowNum(ys,pagc)): 

LincTo (xc , AbsRowN um (ye .page) ) : 


880 


/ *From here down is the overlay stuff*/ 

/ These hold the data so it can be erased*/ 

static char ovcrx[15]. ovcry[15], ovcrz[15], ovcrw[15], ovcrp[15], ovcrr[15]; 

/ This prepares for live overlay but does not show anythina*/ 
int inittcxt( char *font) 

char fontnamc[127]; 
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char *cnvstring; 
if(font[0] == 'd’){ 

Status_Mcssagc( "Using default font"); 
cnvstring = gctcnv("TFONTS"); 
if(cnvstring!=NULL){ 
strcpy (fontnainc, cnvstring) ; 
strcat(fontnamc,"\\"); 
strcat ( fontnamc ,TARG AFONT) : 

} 

if(LoadStrokcFont (fontnamc)) return FAIL: 

} 

else{ 

Status_Mcssagc("Using specified font'*); 
if(LoadStrokcFont(font)) return FAIL: 

} 

/* 

currRcgs. UvcMixSrc — 1; 
currRcgs MvcMixInv — 1; 

v 

currRcgs. comparcEnb — 1; 
currRcgs. ovcrlaySrc = 2; 
currRcgs. ovcrlaylnv = 0; 
currRcgs. livcMixColor = 0; 
currRcgs.alpha8 = 1; 
currRcgs.livcMixGain = 1; 
currRcgs. HvcMixZcro = 0; 
currRcgs.notOVLLcvcl = 0; 

WritcAll(&currRcgs) ; 
sprintf(ovcrx,"X "); 
sprintf(ovcry,"Y "); 
sprintf(ovcrz,"Z "); 
sprintf(ovcrw,"y "): 
sprintf(ovcrp,"p "); 
sprintf(ovcrr,"r "); 
return SUCCESS: 

} 

/ *Turn on live overlay. To turn it off call Live_Vidco or set the 
page. */ 

void livcovcrlay( int page) 

{ 

unsigned char rList[J = {DISPMODE. 0); 

Show_Proccss_Imagc(pagc); 
currRcgs. dispModc = 2: 

WritcSct(&currRcgs. rList); 
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} 


/ * Draw screenpose on the overlay page*/ 
void DrawOvcrlay(Posc *scrccnposc, int ovcrlaypagc) 


ErascOvcrlay(ovcrlaypagc) ; 
sprintf(ovcrx,"X 7.6. Ilf ",scrccnposc->x); 
sprintf(ovcry,"Y 7.6. Ilf ",scrccnposc->y); 
sprintf(ovcrz,"Z 7,6 . Ilf ",scrccnposc->z); 

if(scrccnposc— >yaw == BAD_PITCH_YAW)sprintf(ovcrp."p XXXXX")- 
else sprintf(ovcrp,"p 76.21f ",scrccnposc->pitcli)- 
if(scrccnposc— >pitch == BAD.PITCH YAW)sprintf(ovcrw.»y XXXXX")- 
else sprintf(ovcrw,"y 7.6. 21f", scrccnposc->yaw): 
sprintf(ovcrr,"r 76.11f",scrccnposc->roll): 

#ifdef CHECKLENGTH 


if(( int)strlcn(ovcrx)>=15)Fatal_Error_Mcssagc("Blew it 

if(( int ) s trlcn ( ovcry ) >= 1 5) Fat al_Error_Mcssagc( "Blew it 
if(( int)strlcn(ovcrz) >= 1 5)Fatal_Error_Mcssagc( "Blew it 

if(( int)strlcn(ovcrp)>=15)Fatal_Error_Mcssagc("Blew it 
if(( int)strlcn(ovcrw)>=15)Fatal_Error_Mcssagc("Blev it 

if(( int )strlcn(ovcrr)>=l 5) Fatal_Error_M cssagc ( "Ble w it 
#endif 


in DrawOverlay"): 
in DrawOverlay^; 
in DrawOverlay M ): 
in DrawOverlay"): 
in DrawOverlay M ); 
in DrawOverlay n ): 


DrawOvcrStrings( WHITE, ovcrlaypagc): 


/ * The vertical distance between rows of overlay text*/ 

#define DELTAY (-30) 

/* The starting location of the text*/ 

#define XSTART (370) 

#deflne YSTART (450) 

/ *This routine writes the text in overx, overy ... onto Targa page 
ovcrlaypagc using color. */ 

void DrawOvcrStrings (Pixel color, int ovcrlaypagc) 

int y; 

y = YSTART; 

writetext (ovcrlaypagc. XSTART.y.ovcrx, color): 
y = y + DELTAY; 

writetext (ovcrlaypagc .XSTART.y.ovcry, color): 
y = y + DELTAY; 

writetext (ovcrlaypagc, XSTART.y.ovcrz. color): 
y = y + DELTAY; 

writetext (ovcrlaypagc, XSTART .y.ovcrp.color): 
y = y + DELTAY; 

writetext (ovcrlaypagc ,XSTART,y,ovcrw,color): 

y = y + DELTAY; 

writetext (ovcrlaypagc ,XSTART,y,ovcrr, color): 
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/ *The simplest logic to erase the overlay is to set it zero. SLOW*/ 
void ErascOvcrlay( int ovcrlaypagc) 

ClcarPagc(ovcrlaypagc): 

} 

/ *This writes text on the screen* / 

void writctcxt( int page, int xs, int ys, char *tcxt, Pixel color) 

SctForcColor( ( unsigned long) color): 
MovcTo(xs,AbsRowNum(ys,pagc)): 

DrawString(tcxt): 

} 

/ *The fonts take up memory. Dump them when finished. */ 
void finishtcxtQ ' 

{ 

DisposcStrokcFont ( ) : 

} 

/ Ok I lied. These last two routines do a binary read and write to a 
file and store the contents of the Targa registers. They are used in 
conjuction with Initialize_Vision to avoid the system call */ 

#define S.IWRITE 0200 

int DumpStatc( char *filc, TplusRcgs *rcg) 

int handle, numbytes, j; 
numbytes = sizeof(TplusRcgs): 

handle - opcn(filc, O.BINARY | OJWRONLY | 0_CREAT, SJWRITE) 
if(handlc == —1) return FAIL: 
j = write (handle, ( char *) reg, numbytes); 
if(j!=numbytcs) return FAIL: 
close (handle); 
return SUCCESS: 

} 

int RcadStatc( char ^filc, TplusRcgs *rcg) 

int handle, numbytes, j; 
numbytes = sizeof(TplusRcgs); 
handle = open(file,0_BINARY | 0_RD0NLY); 
if(handlc == —1) return FAIL: 
j — rcad(handlc, ( char *) reg, sizeof(ImagcLinc)); 
if(j!=numbytcs) return FAIL; 
closc(handlc); 
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return SUCCESS: 

} 

int SctLEDStatc( int OnOff) 

{ 

unsigned basc_addrcss, control.bytc, port_a. port_b. port c: 
int select; 


basc.addrcss = 0x300; / *base address of digital I/O port*/ 

control_bytc = basc.addrcss + 3; / Control byte address 

port.a = basc.addrcss; / * p0 rt A address *) 

port.b = basc.addrcss + 1: / *port B address */ 

port.c = basc.addrcss + 2; / *port C address */ 


7 
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select = 0x00; 

outp (control.bytc, select); / * S et all ports to output 


outp (port.b, OnOff); / * S end integer to port b 

return 0; 


} 

int PrintcrPortAddrcss; 

void sctprintcrportaddrcss( int address) 

PrintcrPortAddrcss = address: 

} 


int SctLEDStatcUsingPrintcr( int OnOff) 

outp (Printer Port Address, 'OnOff) : 

return 0: 

1070 
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Documentation Date: 3/10/95 

14.1 Reading, and storing images. 

The routines in this file read and write images from/to disk. One out of place 
routine displays images and pauses between each one. 

New Data Types: 

None. 

Definitions: None. 

14.1.1 Header File Listing: 

#ifndef TARGUTIL.H 
#define TARGUTIL.H 
/*Stores (reads) image page in filename*/ 
int StorcImagc( char *filcnamc, int page): 
int Rcadlmagc( char *filcnamc, int page); 

/ * Stores (reads) all six (eight) images begining at page 0 
using filenames: zero. suffix one. suffix etc.*/ 
void writcall6( char *suffix); 
void rcadall6( char *suffix); 
void rcadall8( char *suffix); 
void writcall8( char *suffix); 

/ * Shows status message, says hit a key, shows the video page then 
waits*/ 

void showpagc( int page, char *mcssagc): 

I* Says what page is shovxing then shows it waits for key*/ 
void showall6( void); 
void showall8( void); 

#endif 
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14.2 Function: Storelmage, Readlmage, writeall6 
readall6, readall8, writeall8, showpage, 
showall6, showall8 

Documentation Date: 3/12/95 

Prototypes: 

int Storelmage (char *filename, int page); 
int Readlmage (char *filename, int page); 
void writeall6(char *suff ix) ; 
void readall6(char *suffix); 
void readall8(char *suffix); 
void writeall8(char *suffix); 
void showpage(int page, char *message); 
void showall6(void) ; 
void showall8(void) ; 

Source File: targutil.c 

Type of Function: User Callable 

Header Files Used in targutil.c: <stdio.h> <string.h> ", datatype, h” 

’targutil.h” ”targa8.h " ” misc.h ” 

Description: 

1. Storelmage stores a page (one image) to a file. If the file cannot be 
opened then it returns FAIL (1) otherwise it returns SUCCESS (0). The 
default directory for the file is the current directory. 

2. Readlmage reads a page (one image) from a file. If the file cannot be 
opened then it returns FAIL (1) otherwise it returns SUCCESS (0). The 
default directory for the file is the current directory. 

3. writeallG stores the first six images in files. You specify the suffix for 
the files then their names are data/zero, data/one etc. Note that if 
the subdirectory data does not exist in the current directory, then the 
routine does nothing. Note that error correction or at least reporting 
should be implemented. It would not be hard to do since the routine 
calls Storelmage which does report error. 

4. writeall8 stores all eight images in files. You specify the suffix for the 
files then their names are data/zero, data/one etc. Note that if the 
subdirectory data in the current directory does not exist, then the routine 
does nothing. Note that error correction or at least reporting should be 
implemented. 
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5. showpage shows a frame of TARGA video (a page) then calls printand- 
wait with a message to the user. 

6. showallG shows six images with a printandwait call between each one. 

7. showa!18 shows eight images with a printandwait call between each one. 

8. readallG reads six images from disk. If subdirectory data does not exist 
in nothing happens. This should at least implement an error return. 

9. readal!8 reads eight images from disk. If subdirectory data does not exist 
nothing happens. This should implement an error return. 


14.2.1 Program Listing: 

#include <stdio.h> 

#include <string.h> 

^include "datatype. h" 

#include "targutil.h" 

# include "targa8.h" 

#include "misc.h" 

/ *This tgajieader was put in by Greg Newman, I don’t know why*/ 

unsigned char tga_hcadcr[18] = {0,0,3,0,0,0,0.0.0.0,0,0,0,2,0,2,8.48}: 

. 

mt StorcImagcExt( char *filc, char *suffix, int page); 
int RcadImagcExt( char *filc, char *suffix, int page); 

#define FILE_NAME_LENGTHS 20 

int StorcImagcExt( char *filc, char *suffix, int page) 

char filcnamc[FILE_NAME_LENGTHS]; 

if ( FormFullFileN amc ( filename , FILE_NAME_LENGTHS, file, suffix) != SUCCESS) 
Fatal_Error_Mcssagc("Blew it in StorelmageExt"); 
return Storclmagc(filcname.pagc); 20 

int RcadImagcExt( char *filc, char *suffix, int page) 
char filcnamc[FILE_NAME_LENGTHS]; 

if(FormFullFilcNamc(fficnamc, FILE.NAME.LENGTHS, file, suffix) != SUCCESS) 
Fatal JIrror_Mcssagc( "Blew it in ReadlmageExt"); 
return Rcadlmagc(filcnamc,pagc); 

.. 30 

/ This routine stores a page (one image) to a file. The file name is 
given by: let file = ’’abed” and suffix = ”xyz ” then the file is 
abcd.xyz ’. If the file cannot be opened then it returns FAIL (1) 
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otherwise it returns SUCCESS (0)*/ 
int StorcImagc( char * filename, int page) 

{ ImagcLinc line: 
char mcssagc[80]; 

FILE *ofilc; 
int i; 

ofilc = fopcn(filcnamc, "wb"); 40 

if (ofilc == NULL) return FAIL; 

sprintf(mcssagc, "Saving Image */,d to '/,s" .page, filename); 

#ifdef CHECKLENGTH 

if(( int)strlcn(mcssagc) >= 40)Fatal_Error_Mcssagc("Blew it in Storelmage"): 
#endif 

Status_Mcssagc(mcssagc); 
fwritc(tga_hcadcr, sizeof(tga_hcadcr),l, ofilc); 

for(i=0;i<IMAGEHEIGHT;i++) 

{ GctLinc(i, page, line); 
fwxitc(linc. sizeof(ImagcLinc) , 1 .ofilc) : 

} 

fclosc(ofilc); 
return SUCCESS: 

} 

/ *This routine reads a page (one image) from a file. The file name is 
given by: let file = ”abcd” and suffix = ”xyz” then the file is 
’abcd.xyz ’. If the file cannot be opened then it returns FAIL (1) 
otherwise it returns SUCCESS (0)*/ 
int Rcadlmagc( char *filcnamc, int page) 

{ ImagcLinc line; 
int i; 

FILE *ifilc; 
char tcmp_hcadcr[18]; 
ifilc = fopcn(filcnamc,"rb"); 
if (ifilc == NULL) return FAIL; 
fread (tcmpjicadcr , sizeof( tga_hcadcr) , 1 .ifilc) ; 
for(i=0;i<IMAGEHEIGHT;i++) 

{ frcad(&linc, sizeof(ImagcLinc),l, ifilc); 

PutLinc(i. page, line): 

} 

fclosc(ifilc); 
return SUCCESS: 

} 

/ *This routine stores the first six images in files. You specify the 
suffix for the files then their names are data\zero , data\one etc . Note 
that if the subdirectory data in the current directory docs not exist , 
then the routine does nothing. Note that error correction or at least 
reporting should be implemented. It would not be hard to do. *j 


80 



,tt 5T0 ™ CT ' ^ 

• « 


void writcalJ6( char *suffix) 

StorcImagcExt ( "data\\zero " , suffix. 0): 
StorcImagcExt ( " dat a\ \ one " , suffix 1)- ‘ 
StorcImagcExt ( " dat a\ \t wo " . suffix 2)- 
StorcImagcExt ("data\\three", suffix. 3)- 
StorcImagcExt ( " dat a\ \f our " , su ffix 4) 
StorcImagcExt ("dataWfive". suffix 5)’ 


Yon specify the 

^ rxsr /! ^ no ' ' wt 

StoroImagcBxt("data\\zero". suffix. 0)- 
StorcImagcExt("data\\one". suffix. 1)- 
StorcImagcExt ( " dat a\ \t wo " , suffix 2)- 
StorcImagcExt ("data\\three". suffix. 3): 

StorcImagcExt ( "dat a\ \f our " , suffix 4)- 
StorcImagcExt ("dataWfive". suffix] 5)’ 

StorcImagcExt ( " dat a\ \s ix " . suffix 6)- 
StorcImagcExt ("data\\seven", suffix 7)- 
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/ This routine shows a frame of TA no a j / 

and waits for a key press */ ' R ° A ( ° P ° 9e) ’ prints a message 

^void showpagc( int page, char *mcssagc) 

char messf 40]: 

#ifdef CHECKLENGTH Hlt Key ' Smcssa g c -P a g c ): 

#endif lt)StrlCn(mCSS) >= 40 ) Fata U3rror_Mcssagc("Blew it in showpage"): 
Show_Pro ccss_Imagc (page) : 
printandwait( mess ): 


1:0 


^MsZlmor S “ mth * pausc *"«« -*/ 

showpagc(0,"Now showing page")- 
showpagc(l,"Now showing page")- 
showpagc(2,"Now showing page")’ 
showpage (3, "Now showing page")’ 
showpage (4, "Now showing page")- 
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showpagc(5,"Now showing page"): 

Com -* * *"« . -/, «./ 

showpagc(0,"Now showing page"): 
showpagc(l,"Now showing page")- 
showpagc(2,"Now showing page"); 
showpagc(3,"Now showing page"): 
showpagc(4,"Now showing page"); 
showpagc(5,"Now showing page")- 
showpagc(6,"Now showing page")- 
showpagc(7,"Now showing page"); 

/*This routine reads six images from disk Tf .u , 
exist nothing happens. This should implement at lZ*t ^ *** ^ ^ 
void rcadall6( char *suffix) ? * 1 ° n C7Tor return - */ 

Show_Proccss_Imagc(0) : 

RcadImagcExt("data\\zero", suffix. 0): 

Show_Pro ccssjmagc ( 1 ) : 

RcadlmagcExt ( " dat a\ \ one " , suffix. 1): 

Show_Proccss_Imagc(2) : 

RcadlmagcExt ("data\\two", suffix. 2): 

Show_Pro ccssjmagc (3) : 

RcadlmagcExt ( " dat a\ \three " . suffix. 3): 

Show_ProccssJmagc(4): 

RcadImagcExt("data\\f our", suffix. 4): 

Show_Pro ccssjmagc ( 5 ) : 

RcadImagcExt("data\\f ive", suffix, 5); 
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/ This routine reads eight images from disk If , , 

does not exist nothing happens This should ' / subdlrector V data 
return.*/ 1 hls should l ™Pk™ent at least an error 

void rcada!18( char *suffix) 

Show_Pro ccssjmagc (0) : 

RcadlmagcExt ("data\\zero", suffix. 0): 

Show_Proccss Jmagc ( 1 ) ; 

RcadlmagcExt ( " dat a\ \ one " , suffix. 1): 

Show_ProccssJmagc(2) : 

RcadlmagcExt ("dataWtwo", suffix, 2): 

Show_ProccssJmagc(3) : 

RcadlmagcExt ("data\\three", suffix. 3): 

Show_ProccssJmagc(4): 
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FUNCTION: 


STOREIMA GE, READIMAGE, 


WRITEALL6, READALL6, READALL 


RcadlmagcExt ( " dat a\ \f our " , suffix, 4): 
Show_Proccss_Imagc(5); 

RcadlmagcExt ( "data\\f i ve " , suffix, 5); 
Show_Proccss_Imagc(6); 

RcadlmagcExt ( " dat a\ \ s i x " , suffix, 6); 
Show_Pro ccssjmagc (5) ; 
RcadImagcExt("data\\seven", suffix, 7); 
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finishtext, 193 

First falling, 95, 133 

First sums over n, 100 

Font 

Targa, 195 

font 

plot, 156 
register, 155 
set, 155 
Font File, 195 
font file 
plot, 155 
Font Files, 57 


228 



INDEX 


229 


Form Full File Name, 153 
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Define, 180 
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sgn, 153 
show page, 222 

Show Pixels In Histogram, 179, 180 

Show process image, 193 

showall, 222 

showhistogram, 100 

Signal to noise, 134 

Slope of n, 98 



